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1. Inleiding 


Dit boek is tot stand gekomen door de samenwerking van drie computerfreaks uit de 
TI 99/4A-gebruikersclub van Vlaanderen. Aanvankelijk werd het plan opgevat om 
voor de TI 99/4A een boek met spellen samen te stellen, een plan dat in duigen viel 
na het stopzetten van de produktie van dit toestel. Toen wij even later van de MSX- 
standaard hoorden en van het feit dat deze niet alleen over een zeer handige BASIC, 
maar ook over dezelfde videochip als het ter ziele gegane toestel beschikte, vatten 
wij het plan op om deze programma's te herschrijven voor de MSX-standaard. We 
zeggen wel herschrijven, want de verschillen tussen de beide BASICs waren toch 
nog zo groot, dat van een eigenlijk ‘vertalen’ geen sprake kon zijn. Sommige spelle- 
tjes moesten we zelfs afvoeren en vervangen door totaal nieuwe ideeën. 

Bij deze spelprogramma's werd vooral gezocht naar een goede grafische uitwer- 
king. De meest recente homecomputers bieden enorme mogelijkheden op dit ge- 
bied en MSX is daar een goed voorbeeld van. We zijn reeds ver van het stadium 
‘bioritme’ en ‘raad het getal’. MSX-BASIC maakt programma's mogelijk vol animatie 
en kleuren, die aan de kasten van de lunaparken doen denken. Sommige van deze 
spelletjes zijn inderdaad gebaseerd op scenario's van klassiekers uit deze hoek, 
zoals Sander Salamander, Piet Piloot, Crunchman en Jantje Wip. Andere zijn denk- 
spellen, zoals Vier op een rij tegen de computer, Jawadde (een MSX-versie van 
Yahtzee) en Guillotine, waarbij je woorden moet raden. Sommige spellen kunnen 
best gecatalogiseerd worden als actiespellen met een strategische inslag, zoals 
Tankgevecht, Luchtaanval en Dokter Snor. Een uitschieter is Cavia Race, dat we als 
gokspelletje kunnen betitelen. 

Enkele van deze spelletjes hebben een compleet origineel scenario, dat nog ner- 
gens in boekvorm noch in een andere vorm werd gepubliceerd. We vermelden hier 
Pipo Duiker, Kees Visser, Dokter Snor en Cavia Race. Ook de beweging kreeg rui- 
me aandacht in deze programma's. Daarvoor werd gretig gebruik gemaakt van de 
door MSX geboden mogelijkheden, vooral wat de manipulatie van de sprites betreft. 
Zo zijn in sommige spellen tot veertien sprites terzelfder tijd in actie. 

Verder werd ook de nodige aandacht geschonken aan de geluiden, met aardige mu- 
ziekjes en geluiden die bij sommige programma's bijna continu doorlopen. De mees- 
te spelletjes werden geschreven in screen 2, vanwege de meest uitgebreide grafi- 
sche mogelijkheden. Enkele echter, zoals Crunchman en Dokter Snor, zijn in screen 
1 ontworpen, omdat deze schermmode soms voordelen biedt bij het snel controle- 
ren van uit karakters gedefinieerde figuurtjes. Zelfs screen 3 komt een keer te voor- 
schijn, namelijk bij het titelscherm van Cavia Race. De spelletjes werden zo gestruc- 
tureerd mogelijk geschreven. Zo vind je meestal het volgende schema: 


Titelscherm en instructies. 

Definitie van de karakters en/of sprites. 

Initialisatie met definitie van variabelen, schermmode, kleuren en diversen. 
Opbouw van scherm en decor. 

Hoofdlus. 


Subroutines. 
Eind van het spel, score. 
Data. 


Alhoewel sommige programma's behoorlijk lang zijn, werd er op gelet dat ze in de 
minimale MSX-configuratie passen. Daar in Europa doorgaans 32K- en 64K-versies 
in omloop zijn, zal de lengte nooit een probleem vormen. 

Ook zijn geen speciale uitbreidingen nodig. Een enkel spel maakt gebruik van de 
beide joysticks (tankgevecht). Crunchman biedt de keuze tussen joystick en cursor- 
toetsen. Handige knapen kunnen trouwens meestal de besturing met cursortoetsen 
vervangen door een besturing met joysticks, door de instructies met Stick(O) te wijzi- 
gen in Stick(1) of Stick(2). Vergeet dan ook niet het 'Strig(0} on' bevel aan te passen 
voor de schiet- en opeetroutines. 

De auteurs wensen u veel speelgenot! 


2. Het programmeren van spelletjes in 
MSX-BASIC 


Het programmeren (en spelen) van spelletjes in MSX-BASIC is een aangename be- 
zigheid, alhoewel men af en toe wel eens moet nadenken natuurlijk. Hierna volgen 
enkele van de mogelijkheden die MSX biedt om tot interessante kleurige program- 
ma's, vol beweging en geluid, te komen. 


De excellente grafische mogelijkheden 

Screen 1 biedt de mogelijkheid om, naast het brengen van tekst in de 32 kolommen- 
mode, ook de sprites aan het werk te zetten. Het behandelen van de kleuren en de 
definities van de karakters is hier wel wat moeilijker en vergt het rechtstreeks POKEn 
van de juiste waarden in het videogeheugen. Controles kunnen hier gebeuren in de 
lage resolutie en gaan dus sneller. 

Screen 2 biedt veruit de meeste mogelijkheden op grafisch gebied. De line-, draw-, 
paint- en circle-instructies, gekoppeld aan het gebruik van sprites, laten de fijnste 
decors gekoppeld aan snelle animatie toe. Enige moeilijkheden kunnen opduiken bij 
het trekken van verticale lijnen. Het brengen van teksten op het scherm gaat hier wat 
lastiger. Zestien kleuren kunnen in elk van deze modes terzelfdertijd worden ge- 
bruikt. 


Het opvoeren van de snelheid 

Het werken met integere getallen maakt het mogelijk de snelheid van een spelpro- 
gramma aanzienlijk te verhogen. Als sommige variabelen dan toch in een hogere 
precisie moeten werken, kunnen deze voorrang krijgen op de integer-mode, door ze 
eenvoudig door bijvoorbeeld een uitroepteken te laten volgen. 

Ook beschikt MSX-BASIC over een aantal krachtige instructies die snel het scherm 
controleren: 

SWAP stelt ons in staat bliksemsnel de waarden van twee variabelen om te ruilen. 
Hiervan werd aardig gebruik gemaakt in de beweging van Sander Salamander en 
van de ruimtemonsters uit Astro. 

POINT stelt ons in staat in de hoge resolutie te kijken waar een voorwerp zich op het 
scherm bevindt. 

TIME is een automatische teller die bij deling door vijftig het exacte aantal seconden 
aangeeft dat een programma loopt. Handig voor een tijdslimiet. 

VPEEK en VPOKE of het rechtstreeks schrijven van waarden in het videogeheugen, 
kunnen de snelheid opvoeren, daar waar de BASIC-instructies te traag werken, of 
zelfs niet voorhanden zijn. 

Verder zijn er nog de tijdsbesparende onderbrekingsroutines, maar daarover straks 
meer. 


Het controleren van de sprites of bewegende karakters 

De eenvoudige Put Sprite-instructie bevat alle elementen om een sprite te verplaat- 
sen, van kleur of van patroon te doen veranderen en zelfs te doen verdwijnen. Karak- 
ters bewegen doe je het best met VPOKE. 


De onderbrekingsroutines 

De onderbrekingsroutines kunnen vooraan in een programma vermeld worden, zo- 
dat ze niet door de hoofdlus worden gecontroleerd, maar wel op interruptbasis, wat 
een enorme snelheidswinst oplevert. Wij vermelden: 

On sprite gosub: bij het overlappen van één van de pixels van een sprite met die van 
een andere sprite, wordt het programma ogenblikkelijk naar de onderbrekingsrouti- 
ne gestuurd. Denk aan botsingen, ontploffingen enz. 

On interval gosub: op regelmatige tijdsintervallen wordt het programma naar een 
onderbrekingsroutine gestuurd, bijvoorbeeld tien keer per seconde. Zo verkrijgt men 
de vloeiende beweging van sprites, terwijl het hoofdprogramma verder loopt. 

On strig gosub: als men de trekkerknop van de joystick of de spatiebalk aanraakt, 
gaat het programma naar de bijbehorende subroutine. 

On key gosub: hetzelfde effect kan men verkrijgen door het aanraken van een func- 
tietoets. 


De logische mogelijkheden 

In MSX-BASIC beschikt men over de volgende logische mogelijkheden: 
Meervoudige if-then-else-regels, dit betekent dat men zeer lange regels kan opstel- 
len met steeds herhalende if-then-else instructies, bijvoorbeeld: if a>b then if c<d 
then if q=1 then gosub 1000 else if a<b then if. De logische operatoren: 

een uitgebreid arsenaal hiervan is in MSX-BASIC voorhanden: AND, OR, NOT, 
XOR, EQV en IMP zijn aanwezig. 

Ook is Return naar een bepaald regelnummer mogelijk. 


De geluidsmogelijkheden 

Op twee manieren kan geluid worden voortgebracht: door rechtstreeks de geluids- 
generator te programmeren met de SOUND-instructie. Drie tonen terzelfder tijd en 
een ruis zijn mogelijk, alsook acht octaven. 

Met de Play-instructie. Dit is eerder een macrotaal waarmee men voor elke noot de 
duur, het octaaf, de toonhoogte, het volume en het ‘soort’ geluid kan vaststellen. 
Verder kan men nog rechtstreeks de videoregisters aanspreken, machinetaalrouti- 
nes inbouwen en met OUT en INP rechtstreeks de I/O-poorten aansturen of ervan 
uitlezen. Van deze laatste drie mogelijkheden werd in dit boek geen gebruik ge- 
maakt. 


3. Tips voor het intikken van de listings 


Het kopen van een boek met programmalistings is een goede zaak. Je beschikt met- 
een over een groot aantal programma's voor een luttel bedrag. Deze programma's 
moet je echter gaan intikken, daarbij bestaat de kans dat je fouten maakt. Daarom 
volgen hier enkele aanwijzingen bij het intikken van programmalistings. 
De listings in dit boek werden fotografisch van de originelen overgenomen zodat 
zetfouten uitgesloten zijn. Bij het opstellen van deze listings werden reeds enkele 
maatregelen genomen om het intikken zo vlot mogelijk te laten verlopen. Voor het 
uitprinten van deze listings werd gebruik gemaakt van een MSX-plotter, die duidelij- 
ke karakters tekent en die ook de speciale MSX-karakters, die in enkele spelletjes 
voorkomen, kan weergeven. Alle regelnummers staan links van de programmaregel 
met een spatie tussen beide. Hierdoor wordt verwarring tussen regelnummers en 
getallen uit het programma voorkomen. Enkele veel voorkomende tikfouten: De let- 
ter o voor het cijfer O (let op de diagonale streep). De letter | voor het cijfer 1, S voor $, 
B voor 8 en omgekeerd. 
De listings in dit boek hebben steeds hetzelfde aantal karakters op één lijn, namelijk 
62, het regelnummer inbegrepen. Let niet op het afbreken van woorden en getallen 
aan de rechterkant van een regel, zo deze langer is dan 62 karakters. Tik gewoon 
door zonder spatie. Na elke complete programmaregel (dus voor een nieuw regel- 
nummer) moet je RETURN intoetsen. Grote stukken van de listings worden in be- 
slag genomen door het samenstellen van de spritestrings. Dit zijn de regels, tamelijk 
vooraan in de programma's, met de telkens terugkerende instructie 
CHRS(&H..…)+… Laat je hierdoor niet afschrikken. Definieer vooraf een toets, bij- 
voorbeeld Key1, met deze instructie op de volgende manier: Key 1.'CHRS(&H.…) +. 
Nu kun je na het regelnummer zoveel maal de functietoets 1 indrukken, als er chr$- 
instructies zijn in de desbetreffende regel. De punten vul je dan achteraf in met de 
juiste hexadecimale waarden. Dit spaart je veel tikwerk uit. 
Bij de listings waarin veel speciale MSX-karakters gebruikt worden, is dit in de inlei- 
dende tekst vermeld, met de nodige toetsencombinatie. Bij een paar andere moet je 
het toetsenbord of de bij je toestel geleverde zelfklevers nakijken. 
Onze printer drukt een nogal eigenaardige komma. Houd dit in de gaten, vooral tus- 
sen Data. Zorg regelmatig voor een save op cassette of diskette. Doe in elk geval 
een SAVE vóór je het programma voor de eerste keer runt. Zo voorkom je dat uren 
tikwerk verloren gaat. Het is ook raadzaam tussen twee programma's door een reset 
toe te passen, of beter nog de stroom even uit te schakelen. Dit zet alle geheugen- 
plaatsen op OQ. Anders kunnen soms eigenaardige sprite- en andere videoverschijn- 
selen voorkomen. De lengte van de programma's is nooit groter dan 16K. De listings 
in dit boek zijn bruikbaar op alle computers die het kenmerk MSX dragen, ongeacht 
het merk. Intikken in andere toestellen heeft geen zin. 
De auteurs staan open voor verbeteringen, opmerkingen en suggesties in verband 
met de programma's. 
Voor wie het intikken een onoverkomelijke taak vindt, zijn deze programma's ook op 
cassette te verkrijgen bij de auteurs. Inlichtingen op het volgende adres: 
Deloore, J. P., Hessestraat 1, B9670, Horebeke, België. 
Tel. 055/455603. 
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4. Programma's 


4.1 Tankgevecht 


Tankgevecht is een meer strategisch spelletje voor twee personen en vergt het ge- 
bruik van beide joysticks. Generaal ‘Bethon’ en generaal ‘Stahl’ hebben het op el- 
kaar gemunt. Ze zullen een duel uitvechten met hun tanks. 

Met dit spel wil ik aantonen dat het mogelijk is om een voorwerp op het scherm, in dit 
geval een tank, te besturen in alle (acht) richtingen en daarbij ook nog rekening te 
houden met de rand van het scherm, je ziet … vele controles in een loop. Dit alles 
geschreven in MSX-BASIC en zoals je zult merken, gaat toch alles nog geweldig 
vlug. 

Het is de bedoeling om als eerste de tank van je tegenspeler te beschieten. Na elk 
schot ontstaat er een put in de grond op de plaats waar de bom gevallen is maar dit 
belemmert niet dat de tanks er overheen kunnen rijden. Ook heeft elke speler even- 
veel vlakken van eenzelfde kleur (op het veld) waaronder hij, en alleen hij, zich on- 
zichtbaar kan maken voor de vijand. leder heeft vijf voertuigen en de stand wordt 
bijgehouden. 


Programma 


100 REM Hlm HH NH HH HEI HH 

119 REM %%% TANEGEVECHT %%% 

120 REM MNN NNI HEN IH MM IE NH HE 

150 CLS:SCREEN B: COLOR 15,4,4: WIDTH(40) 

143 PRINT * “ee tankgevecht Nee! 

150 FOR I=1 TO S:PRINT:NEXT I 

148 PRINT "generaal ‘BETHON’ en generaal ‘STAHL'" 
178 PRINT "NEMEN HET TEGEN ELKAAR OP!" 

180 FOR I=1 TO S:PRINT : NEXT 

199 FRINT “met de twee ‘JOYSTICKS’ kun je" 

200 PRINT "de tanks in alle richtingen besturen. " 
218 FRINT 

220 FRINT "daar waar de bom valt ontstaat" 

230 PRINT "een ‘KUIL’ in de grond en als je ern 
240 FRINT "toevallig naast staat...t ja..." 
250 FRINT "dan ben je om ‘zeep... 

260 PRINT 

270 FRINT "Je hebt vijf tanks..." 

2830 FOR DEL=1 TO SODA: NEXT DEL 

290 OPEN "GRP: " FOR OUTPUT AS #1 

309 SCREEN 2,2 :COLOR 15,11,13 

310 CLS:KEY OFF 

320 REM xr VARIABELEN st 

250 A=12:B=80 

244 C=228:D=30 

350 E=1:T=2: TA=5: TB=5 

268 FO=5:FQ=7 


370 REM ##*% KARAKTER DEF, #%% 

2838 AE=CHRE (&HO) +HCHRE (&H18) HCHRE (HHC) HCHRE (HD) +CHRE (S&H 
84) HCHRE (HS) HCHRE (BH24) CHR CRHEF) HCHRE (KHE) +CHRE (&HE) 
+CHRE (&HAE) HCHRE (&H76) +CHRE CHHEO) HCHRE (HHD) +CHRE (HHIC) HC 
HRE (HC) 

390 AFZAELCHRE (RHE) HCHRE (HZ) HCHRE (HOO) HCHRE (LHA) HCHRE 
(HAC) +HCHRE (RHPC) +CHRE (HHBB) +CHRE (2HCB) +CHRE (UHIE) HCHRE ( 
SHBG) +CHRE (&HED) +CHRE (2HFO) +CHRE (2H78) +CHRE (HD) +CHRE (2 
HE) +CHRE (&H2) : SPRITE (0) =A$ 

488 AF=CHRE (&HO) +CHRE (&HO) HCHRE (UHSE) HCHRE (&H2A) HCHRE (ZH 
ZF) +CHRE (&H7) HCHRE (BHE) HCHRE (HHLE) HCHRE (HHIE) +CHRE (EHF) + 
CHR (2H7) HCHRE (HEF) FCHRE (&2H2A) HCHRE (HHEF) +CHRE (&HO) HEHRK 
tE (&HG) 

1D AFZAECHRE (&HO) HCHRE (EHD) HCHRE (HHFO) HCHRE (&HAB) HCHRH 
(&HFB) +CHRE (RHEO) HCHRE (HHFO) HCHRE (HHEF ) +CHRE (HHEF ) +CHRE ( 
&HEO) +CHRE (&HEO) HCHRE (&HFB) +CHRÉ (&HAB) +CHRE (&HFB) : SPRITE 
ECE) =AE 

420 A$=CHRE (&HD) +CHRE (HE) HCHRE (&HE) HCHRE (&HD) +CHRE (&H1 B 
) +CHRÉ (&HZ7) +CHRE (&HEF) HCHRE (&HDF) +CHRE (&H7F) HCHRE (&HAF) 
LCHRÉE (HF) +CHRE (&HF) HCHRE (BH 1) HCHRE C&H1) HCHRE (HHE) HCHRE C 
4HD) 

AED AFZAELCHRE (&HD) +CHRE (BHA) +CHRHE (HHCE) +CHRE (&HFC) HCHRE 
CRHFB) HCHRE (HHPE) HCHRE (HHC) HCHRE (HHEC) +CHRE (&HFA) HCHRE ( 
HEE) HCHRE (&HEC) +CHRE (&HDE) +HCHRE (HED) +CHRE (LHED) +HCHRE (4 
HCO) +CHRE (&HBO) : SPRITEE (2) =Af 

440 AF=CHRE (HD) HCHRE (LHE) HCHRE (&HI) HCHRE (KH 1) +CHRE (HF) 
+CHRE (HF) +CHRE (BHAF) +CHRE (&H7E) +HCHRE (&HDF) +HCHRE (HHEF) +C 
HRE (&HZ7) +CHRE (HIB) HCHRS (HD) +CHRE (HE) +HCHRE (HE) HCHRE ( 
HO) 

5D AFZAECHRE (&HBO) HCHRE (RHCO) +CHRE (RHOO) HCHRE (HBO) +CH 
RE (&HDB) +CHRE (&HEC) +CHRE (BHE 6) HCHRE (BHFA) HCHRE CHHEC) CHR 
FCHHIC) HCHRE (HHD) HCHRE (HF B) HCHRE (BHE) HCHRE (RHCE) HEHRE 
CHA) +CHRE (HO) 2 SPRITES (4) =zA& 

460 AF=CHRE (RH 1) HCHRE (HI) +CHRE (BH) HCHRE (HHES) HCHRE (HHA 
B) +CHRE (&HEF) +CHRE (&2H2E) +CHRE (H3E) +CHRE (&H2E) HCHRE (HEF 
)+CHRE (&H2F) +CHRÉ (BHZE) +CHRE (&H29) HCHRE (2HZ8) +CHRE (HHD) + 
CHRÉ (&HO) 

470 ASZAEHCHRE (&H30) +CHRE (2HB0) +HCHRE (2HBO) HCHRE (RHIC) HCH 
RE (HDA) HCHRE (&HFC) HCHRE (&H74) +HCHRE (HZC) HCHRE (4H74) +CHR 
ECHEC) HCHREF CHF 4) HCHRE (HHDG) +CHRE (HSA) HCHRE (HHIC) 2 SPRI 
TEE (1) =A£ 

400 ALSCHRE HHD) HCHRE CBHD) CHR (HHS) HCHRE (HHS) +CHEEE (RH 
ZE) +CHRE (&HOF) HCHRE CHHEF) HCHRE CHHZE) HCHRE CHHEE) HCHRE CRH 
E) +CHRE (RHEF) HCHRE (RH2E) HCHRE (HES) HCHRE (BH) HCHRE C&HID) + 
CHRE (SH 1 ) 

490 AFZAECHRE (HO) HCHRE (HO) HCHRE (HHIC) HCHRE (HPA) +CHRE 
(&HDC) +CHRE (HF 4) HCHRE (HFC) +HCHRE (&H7 4) HCHRE (H7C) +CHRE ( 
YH7 4) HCHRE (&HFC) +CHRE (HDA) +CHRE (&HIC) +CHRE (HHBO) HCHRE (3 
H8O) +CHRE (%H8O) : SPRITEE (5) =AF 

500 AF=CHRE (KHO) +CHRE (RH2O) +CHRE CRHZE) HCHRE (HEF) HCHRE (2, 
HIE) +CHRE (&H 19) +CHRE (KHEB) +CHRE (HHEC) HCHRE CRHSF) HCHRE (AH 
GF) +CHRE (&HE7) +CHRE (RHIB) HCHRE (&HD) HCHRE (KHE) HCHRE (HE) + 
CHRÉ (&H1) 

510 AFZAECHRE (2HO) HCHRE (HCO) HCHRE (LHEO) +CHRE (LHBD) +CHR 
$(&HDO) +CHRE (HEC) HCHRE (HF 6) +CHRE (HEB) +CHRE (HEE) +CHRE 
CHF 2) HCHRE (HF B) +HCHRE (HFD) +CHRE (EHBO) +CHRE (2HBO) +CHRE ( 
&HCO) : SPRITES (8) =At 13 


520 AS=CHRE (&H1) +CHRE (LHE) HCHRE (RHO) +CHRE (&HD) +CHRE (RHIE 
)» +CHR$ (&HZ7) +CHRE (HHGE) +CHRE (&HSF) +CHRE (&HZC) +CHRE (4HZE) 
+CHR$ (&H19) +CHRE (&H1F) +CHRÉ (XH3F) HCHRE (&H7Z) HCHRE (2H20) + 
CHR$ (HO) 

520 Af=AS+CHRE (HO) +CHRE (&HCO) +CHRÉ (&HBO) +CHRÉ (HBO) +CHR 
$ (&HFO) +CHRE (&HFO) +CHRE (&HFZ) HCHRE (BHFE) HCHRS (&HEE) HCHRE 
(HF 6) +CHRE (&HEC) +CHRS (HDS) +HCHRE (HBO) +CHRE (&H6O) +CHRÉ ( 
&HCO) : SPRITES (6) =A$ 

540 A$=CHRE (2HB) +CHR$ (&HO) +CHRE (&H1F) +CHRE (&H1S) +CHRE (&H 
1E) +CHR$ (&H7) HCHRE (RHF) +CHRE (HFC) +CHRÉ (HFC) +CHRSE (&HF) + 
CHR$ (&H7) +CHRE (RH1F) +CHRE (&H1S) +HCHRE (RH1F) HCHRE (&HO) +CHR 
$ (HO) 

550 A$=A$+CHRE (HB) +CHRE (2HB) +CHRE (RHFC) +CHRE (2HSA) +HCHRE 
(HFC) +CHR$ (RHEO) +CHRE (HEB) +HCHRE (&H78) HCHRSE (2H7B) HCHRÉ ( 
&HED) +CHRE (&HED) HCHRÉ (RHFC) +CHRE (HSA) +CHRE (2HFC) : SPRITE 
£ (7) =At 

56D REM #4 KOGEL #xx 

570 A$=CHRE (KHD) +CHRE (&HO) +CHRE (RHO) +CHRE (&HO) +HCHRE (4HO) 
+CHR$ (&HD) +CHRE (HD) +CHRE (&H1) HCHRE (&H1) +CHRS (HO) +CHRE ( 
&HD) +CHRE (HO) +CHRE (&HO) +CHRE (HO) +CHRE (&HO) +CHRE (LHO) 
588 A$=AE+CHRE (&HO) +CHRE (HB) +CHRE (2HO) HCHRE (RHO) HCHRE (2 
HO) +CHRE (HO) +CHRE (HO) +CHRE (HHBO) +HCHRE (&HBD) : SPRITE (9) 
=At 

590 AFSCHRE (&H40) HCHRE (RH20) HCHRS (&H20) +CHRE (HB) +CHRE (% 
HB) +CHRE (&H22) +CHRE (&H1) +CHRE (HE) HCHRE (RHS) +CHRE (HI) +C 
HRE (&H22) +CHRE (&HA) +CHRE (&HB) +HCHRS (&H4) +CHRE (&HO) +CHRE (2 
H10) 

400 Af=AE+CHRE (&H2) +CHRE (&HO) +CHRS (&HB) +HCHRE (&H18) +CHRÉ ( 
&HBZ) +CHRÉ (&H28) +CHRE (RHDO) +CHRE (&2H48) +HCHRE (HSB) +CHRE (2 
HAC) +CHRÉ (&H1 2) +CHRÉ (&HBZ) +CHRSE (R&H1 ) +CHRE (HB) +HCHRE (&HE) 
:SPRITES (10) =A$ 

418 REM s#%** SCHERMOPBOUW 

620 LINE (1,1)-(264,16) ,12,BF 

620 LINE (1,184)-(2464,192) ,13,BF 

5408 LINE (1,1)-(8,192),13,BF 

&50 LINE (248,1)-(256,192) ,12,BF 

660 FOR 1=40 TO 1468 STEP &4 

670 LINE(I,24)-(I+16,168) ,9,BF 

480 NEXT 

690 FOR 1=72 TO 200 STEP 44 

708 LINE(I,24)-(1+16,168) ,12,BF 

718 NEXT 

720 FOR 1=48 TO 136 STEP 32 

730 LINE (40,1)-(216,1+16) ‚11,BF 

740 NEXT 

750 PRESET (@,5):PRINT #1," BETHON#S*#tankgevechtS5STA 


760 REM #*# SPRITE-POSITIE 
770 PUT SPRITE 1, (A,B),9,FO 
780 PUT SPRITE 2,(C,D),12,PQ 
790 REM ##** HOOFDLUS #x 
8300 SWAP E‚T 

831@ SOUND 7,9:SOUND 9,10 

20 SPRITE OFF 

830 FUT SPRITE 5, (256,192) 


Was 
990 
1000 
1010 
1020 


PRIT 
1260 
1270 
1280 
y=) 
1290 
: PUT 
1300 


ON E GOSUB 850, 1220 

ST=STICK (1) 

ON SPRITE GOSURE 900 

IF STRIG(1)==-1 THEN GOSUB 1200 

IF ST=1 THEN B=B-5:P0O=1:G0OT0 9460 

IF ST=2 THEN A=zA+E:B=eB-isFO=2:G0T0 940 
IF ST=2 THEN A=zA+3:F0O=Z:G0OT0 960 

IF ST=4 THEN A=A+Z:B=Bt+5:P0=4: G0OTO #40 
IF ST=5 THEN B=B+5:P0=5:G0OTO 960 

IF ST=6 THEN A=A-5:B=Bt+5:P0=6:G0T0 960 
IF ST=7 THEN A=A-Z:P0=7:G0T0 9460 

IF ST=8 THEN A=A-5:B=B-5:FP0=8:G0T0 940 
IF ST=8 THEN ST=PO 

IF B<16 THEN B=B+3 ELSE IF B>1468 THEN B=B-Z ELSE IF 
THEN A=A+5 ELSE IF A>2352 THEN A=A-Z 


IF A{C+16 AND A>C-16 AND BXD+16 AND B>D-1& THEN PLAY 
RETURN 800 
SPRITE ON 

PUT SPRITE 1, {(A,B) ,9,FO 

RETURN 800 

ST=STICK (2) 

ON SPRITE GOSUE 800 

IF STRIG(2)=-1 THEN GOSUB 1560 

IF ST=1 THEN D=D-3:FQ=1:GOTO 1130 

IF ST=2 THEN C=C+3:D=D-3:PQ=2:G0T0 1130 

IF ST=3 THEN C=C+3:PQ=3:G0TO 1130 

IF ST=4 THEN C=C+5:D=D+3:PQ=4:GO0TO 1120 

IF ST=5 THEN D=D+3:FQ=5:GOTO 1120 

IF ST=& THEN C=C-3:D=D+5:PQ=6:G0T0 1130 

IF ST=7 THEN C=C-2:P0=7:G0T0 1130 

IF ST=8 THEN C=C-Z:D=D-3:PQ=8:GOTO 1120 

IF ST=@ THEN ST=PQ 

IF D{16 THEN D=D+2 ELSE IF D>168 THEN D=D-3 ELSE IF 
THEN C=C+3 ELSE IF C>232 THEN C=C-3 

IF CXA+16 AND C2A-16 ANDDXE+16 AND D*B-16 THEN PLAY 
: RETURN 800 

SPRITE ON 

PUT SPRITE 2, (C,D) ,12,FQ 

RETURN 802 

REM sex VUIJR TANK 1 se 

AX=A: BY=E 

SOUND 7,10:SOUND 9,13 

ON SPRITE GOSUB 1920 

IF PO<>1 THEN 1270 

FOR I=1 TO Z:BY=EY-30:FUT SPRITE 3, (AX,EY-9) ‚1, 9:NE 
LINE(AX,EY-9) —(AX+4, (BY-9) +4) ,4,EF: SPRITE ON :PUT 5 
E 3, (AX,BY-9),1,10 


BEEF: RETURN 200 

IF POX22 THEN 1210 

FOR I=l TO Zr AX=AX+20:BV=BY-10:PUT SPRITE 3, (AX+9,E 
„1,9:NEXT I 
LINE(AX+9,BY-9) —((AX+9) +4, (EY-9) +4) „4, BF: SPRITE ON 
SPRITE 3, (AX+9,BY-9) ‚1,10 

BEEP: RETURN 800 
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1310 IF POX>3 THEN 1350 

1520 FOR I=1 TO Z:AX=AX+20:PUT SPRITE 2, (AX+9,BY) ,1,9:NE 
Kr Î 

1330 LINE(AX+9,BY)-((AX+9) +4,BY+4) ,4,EF: SPRITE ON :PUT S 
PRITE 2, (AX+9,BV) „1,10 

1540 BEEF:RETURN 800 

1350 IF POS>4 THEN 1390 

1560 FOR I=1 TO 3:AX=AX+30: EY=EBY+10:PUT SPRITE 3, (AX+9,E 
Y+9) ,1,9:NEXT I 

1570 LINE(AX+9,BY+9) —((AX+9) +4, (BY+9) +4) „4, BF: SPRITE ON 
:PUT SPRITE 5, (AX+9,BY+9) „1,10 

1380 BEEP:RETURN 800 

1390 IF POX*S THEN 1430 

1400 FOR I=1 TO Z:BY=BY+30:FUT SPRITE 3, (AX,BY+9) ,1,9:NE 
XT I 

1410 LINE(AX,BY+9) -(AX+4, (BY+9) +4) „4, EF:SFRITE ON :PUT S 
PRITE 3, (AX,BY+9) ‚1,10 

1420 BEEP:RETURN 800 

1430 IF PO<>6 THEN 1470 

1440 FOR I=1 TO 3:AX=AX-30:BY=EY+10: FUT SPRITE 3, (AX-9,B 
Y+9) ,1,9:NEXT I 

1450 LINE(AX-9,BY+9) —((AX-9) +4, (EY+9) +4) „4, BF: SPRITE ON 
:PUT SPRITE 3, (AX-9,BY+9) ‚1,10 

1460 BEEP:RETURN 800 

1470 IF POX>7 THEN 1510 

1480 FOR I=1 TO 3:AX=AX-3@:PUT SPRITE 3, (AX-9,BY) ,1,9:NE 
XT I 

1490 LINE(AX-9,BY)-((AX-9)+4,BY+4) ,4,BF:SPRITE ON :PUT S 
PRITE 3, (AX-9,BY) ‚1,10 

1508 BEEP:RETURN 800 

1510 IF POX>8 THEN RETURN 800 

1520 FOR I=1 TO 3:AX=AX-30:BY=BY-10:PUT SPRITE 2, (AX-9,B 
Y-9),1,9:NEXT I 

1530 LINE(AX-9,BY-9) -((AX-9) +4, (BY-9) +4) „4, BF: SPRITE ON 
:PUT SPRITE 3, (AX-9,BY-9) ‚1,10 

1540 BEEP:RETURN 800 

1550 REM xx VUUR TANK 2 xx 

1568 CX=C:DY=D 

1578 SOUND 7,10:SOUND 9,13 

1580 ON SPRITE GOSUE 2070 

1590 IF PO<>1 THEN 1630 

1600 FOR I=1 TO Z:DY=DY-30:PUT SPRITE 3, (CX,DY-9) ,1,9:NE 
et 

1618 LINE(CX,DY-9)-(CX+4, (DY-9) +4) ,4,BF: SPRITE ON :PUT S 
PRITE 3, (CX,DY-9) ‚1,10 

1620 BEEP:RETURN 800 

1630 IF PQ<>2 THEN 1670 

1640 FOR I=1 TO 3:CX=CX+30:DY=DY-10:PUT SPRITE 3, (CX+9,D 
Y-9),1,9:NEXT 1 

1650 LINE(CX+9,DY-9) -((CX+9) +4, (DY-9) +4) ,4, BF: SPRITE ON 
:PUT SPRITE 3, (CX+9,DY-9) „1,10 

1648 BEEF:RETURN 800 

1670 IF PQ{>3 THEN 1710 

1680 FOR I=1 TO 2:CX=CX+30:PUT SPRITE 2, (CX+9,DY) ‚1, 9:NE 
ok 
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1690 LINE(CX+9 DY) -((CX+9) +4,DY+4) „4, BF: SPRITE ON :PUT 5 
PRITE 3, (CX+9,DY) ‚1,10 

1700 BEEP:RETURN 800 

1710 IF PQ{>4 THEN 1750 

1728 FOR I=1 TO 3:CX=CX+30:DY=DY+10:PUT SPRITE 3, (CX+9,D 
Y+9) ,1,9:NEXT I 

1730 LINE(CX+9,DY+9) -((CX+9) +4, (DY+9) +4) „4, BF: SPRITE ON 
:PUT SPRITE 2, (CX+9,DY+9) ‚1,10 

1740 BEEF:RETURN 800 

1750 IF POS>5 THEN 1790 

1760 FOR I=1 TO E:DY=DY+30:PUT SPRITE 3, (CX,DY+9) ,1,9:NE 


1778 LINE(CX,DY+9) -(CX+4, (DY+9) +4) ,4,BF: SPRITE ON :PUT S 
PRITE 3, (CX,DY+9) „1,18 

1780 BEEP:RETURN 800 

1790 IF FQ<S:6 THEN 1820 

1800 FOR I=1 TO Sr: CX=CX-30:DY=DY+10:PUT SPRITE 5, (CX-9,D 
Y+9) ,1,9:NEXT 1 

1810 LINE(CX-9,DY+9) -((CX-9) +4, (DY+9) +4) „4, BF: SPRITE ON 
:PUT SPRITE 3, (CX-9,DY+9) ‚1,10 

1820 BEEP:RETURN 800 

1830 IF PQ{27 THEN 1870 

1848 FOR I=1 TO 5:CX=CX-20:PUT SPRITE 5, (CX-9,DV), 1, 9: NE 


1858 LINE(CX-9,DY)=-((EX-9) +4,DY+4) „4, BFI SPRITE ON :PUT S 

PRITE 5, (BX DY) vts 10 

18460 BEEF:RKETURN 800 

1870 IF PQZ:8 THEN RETURN 800 

1880 FOR I=1 TO Z:CX=CX-50: DV=DY-10: FUT SPRITE 3, (CX-9,D 

Y=9) ;14PENEXT I 

1890 LINE (CX-9,DYP) —((CK-G) +4, (DY) +4) „4, BFE SFRITE ON 

:PUT SPRITE 3, (CNS ,DV=) 71,10 

1909 BEEF:RETURN 800 

1918 REM # EXFLO.TANK 2 se 

1920 SPRITE OFF 

19250 IF ABS(A-C):58 AND ABS(B-D) 250 THEN RETURN 990 

1940 FUT SPRITE 2, (254, 192) 

1950 PUT SPRITE 2,(C,D) ‚9,0 

1964 SOUND 7,0:S0UND 9,0 

1978 FOR S= TO 65: SOUND @,0: SOUND 1,0:SOUND 2,0:S0OUND 7 

‚0:SOUND 4,0:S0OUND 5,0: SOUND 4,15:SOUND 7,2 

1988 SOUND S,146:S50UND 10,16: S0OUND 11,8:SOUND 12,10: SOUND 
2,0::FOR X=16 TO @ STEP —.05:SOUND 8,X:NEXT X 

1993 TBE=TBR-1 

2009 IF TE=@ THEN 2220 

2010 LINE (200,5) -(208,15) ,15,EF 

23020 PSET(192,5):PRINT #1,TB 

2050 FOR DEL=1 TO ZOO: NEXT DEL 

2040 A=12:BR=80:C=228: D=80 

2050 RETURN 800 

20458 REM #*x EXPLO. TANK 1 ##% 

2070 SFRITE OFF 

2089 IF ARS(A-C)750 AND ABS (EH-D) 50 THEN RETURN 800 

2390 PUT SPRITE 5, (2546,192) 

2109 FUT SPRITE 1,(A,B),12,0 
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2112 SOUND 7,2: SOUND 9,0 

z120 FOR S=4 TO 45:S0UND @,9: SOUND 1,0: SOUND 2,0: SOUND 5 
‚0: 5OUND 4,0: 50UND 5,O: SOUND 4, 15:S0OUND 7,2 

21:50 SOUND @,16:S0UND 12,14: S0OUND 11,0:SOUND 12,10: SOUND 
15,0:: FOR X=16 TO DQ STEP —-.05: SOUND 8,XiNEXT-X 

2140 TA=TA-1 

2158 IF TA=@ THEN 2280 

2168 LINECS6, 0) (64,13) ,A1SBE 

2170 FSET(48,5): PRINT #1,TA 

2188 FOR DEL=1 TO 500: NEXT DEL 

2198 A=12:B=80: C=228: D=20 

2200 RETURN 800 

2210 REM #%# 1/GDB/85 #2 

2220 REM #%x* TANK 1 GEWONNEN #3 

2250 CLS:SCREEN @ 

2240 LOCATE &,10 

2250 FRINT "#xttank 1 heeft gewonnen! 

22460 COLOR 15,4,4 

END 

REM ##*# TANK 2 GEWONNEN 2% 

CLS: SCREEN @ 

LOCATE 6,10 

PRINT werrtank hk heeft gewonnen! 

COLOR 15,4,4 

END 


Voorbeeld 
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4.2 Kees Visser 


Een origineel spelletje. Keesie wil visjes vangen… en dit is natuurlijk veel makkelijker 
als je het ziet doen dan als je het zelf moet klaarspelen. 

Het spel heeft acht moeilijkheidsgraden. Hoe kleiner het cijfer dat je kiest, hoe min- 
der het visje boven water komt en hoe meer je lukraak moet gaan vissen. Begin dus 
liefst met niveau acht, zodat je de visjes altijd blijft zien. 

Met de vier cursortoetsen kun je Kees horizontaal laten bewegen en de vislijn op en 
neer halen. Probeer nu met de vishaak het visje te raken. Telkens als het visje de 
zijkant haalt wordt er wat van je tijd afgetrokken. De vangst wordt eveneens door een 
teller bijgehouden. Let op het leuke muziekje dat in dit spelletje is verwerkt. 

Nog een prettige visvangst! 


Programma 

100 REM HAER HMH HH HI HHN IH HH HH 

119 REM #% KEES-VISSER #%x 

120 REM MHI H NIN HIN HHK 

150 SCREEN 2,2:COLOR 15,4,4 

148 CLS 

150 KEY OFF 

158 REM »#** VARIABELEN #3 

178 X=80: Y=50:LN=5 

188 L=ZtC=ieR=- Erf 

199 O=4:P=5: VIS=O 

200 UP=1:CNT=250 

218 OPEN “GRP:" FOR OUTPUT AS #1 

220 FSET (50,10) 2PFRINT #1, "*4KEES VISSERH%" 

230 FSET (10,20):PRINT #1,"KEES doet mee aan de" 

244 FSET (10,40) :FRINT #1,"plaatselijke viswedstri id, 
250 FSET (10,50) :PRINT #1,"Hij moet namelijk zoveel" 

260 PSET (10,40) :PFRINT #1,"mogelijk visjes zien te vangen." 
270 PSET (10,70) :FRINT #1,"U kurt hem naar links en rechts" 
200 PSET (19,80) :FRINT #1,“iaten gaan met de horizontale" 
290 PSET (18,90 PRINT #1,"cursortoetsen en met de" 

„00 PSET (10,10) :PFRINT #1, "vertikale gaat de vislijn" 
519 FSET (1@,110):PRINT #1,"op en neer. 

220 PSET (10,120):FRINT #1,"Probeer op die manier zoveel" 
20 FSET (10,120):PRINT #1, "mogelijk vissen te vangen.” 
240 FSET (10,140):FRINT #H,"Hoe LAGER het moeilijkheids" 
550 FSET (10,150):FRINT #1,"getal, hoe minder de vis " 
260 PSET (10,1460):PFRINT #1, "boven water komt! SUCCES, 
270 FSET (80,180) :PRINT #1,"druk een toets in" 

580 KEZINKEVE 

298 IF Ké$="" THEN 280 

A08 REM sx MOEILIJKHEIDSGRAAD ##+* 

410 INPUT "MOEILIJKHEIDSGRAAD (1-8):"zA 

420 IF AZ1 OR A28 THEN 410 

420 N=A 

4408 CLS 

450 SCREEN 2,2 

460 REM #3 SCHERM-OFBOUW #%# 
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478 LINE (14,82)-(240,110) „15,B 

480 LINE (17,85) -(239,109) ,5,BF 

490 CIRCLE (128,136),126,5,,,-42 

508 PAINT (128,126),5,9 

510 FOR I=16 TO 240 STEP 2 

520 FSET (1,110) 

520 NEXT I 

540 PSET (25,40): PRINT #1,"TIJD" 

550 PSET (30,20) :PRINT #1,"250" 

560 PSET (192,40): PRINT #1,"VISSEN" 

570 PSET(200,20) :PRINT #1,0 

500 REM *%# KARAKTER DEF. 

590 AFSCHRE LUHEC) +CHRE (HAD) +CHRE (HHC) CHR (2H 26) +CHR 
& (RHZC) +CHRE (HEB) +CHRE (RHZE) +CHRE (H1B) +CHRE (HHC) +CH 
RE (2H7E) +CHRE (BHEF) +HCHRE (HHEF) +HCHRE(BHEF) HCHRE (LHSC) +C 
HRE (&H22) +CHRE (2H7E) 

500 AF=AE+CHRE (LHB) HCHRE (HO) +CHRE (LHB) HCHRE (HHI) +CHRE 
(EHE) HCHRE (2HS) +CHRE (HI) HCHRE(RH1 1) HCHRE (RH21) HCHRE (3 
H& 1) HEHRE (HCI) +CHRÉ (HBI) +CHRE (RH1) +CHRE (&H1) HCHRE (2H 
19 +CHRE (RHID : SPRITES (1) =Af 

618 AE=CHRE (&HEG) HCHRE (RH7E) +HCHRE (&H7E) CHR (2H7E) +CHR 
E(RHE7) HCHRE (HHEE) HCHRE RHB 1) +CHRE (HHZO) HCHRE (HEB) +CH 
KE (HHZO) +CHRE (LHZD) HCHRSE (RHEO) +CHRE (&HEO) HCHRE (2HEO) +C 
HEE (&HFO) +CHRÉ (HDO) 

620 AFZAELCHRE (HI) +CHRE (&H1) HCHRE (RHID +CHRF (&H1) +CHRE 
CEH1) HCHRE (RHEI) +HCHRE (BHC1) +CHRE (RHEI) +CHRE (HG 1) HCHRE 
(HG 1) +CHRE (RHEI) +CHRE (RHEI) HCHRE (BHG 1) HCHRE (BHA 1) HCHR 
$(RH79) HCHRE (LHS) : SPRITEE (2) =At 

430 AE=CHRE (2HES) HCHRE (2H7E) +CHRÉ (&H7E) +CHRÉ (&H7E) +CHR 
ELLHZG) HCHRE (&HZ6) +CHRE (&HI6) HCHRE (2HZ6) HCHRE (RH3G) HCH 
RE (HHZ6) HCHRE (&H36) +CHRE (&HS6) HCHRE (UHZ6) +CHRE (HZ) +C 
HRE (&HF7) +CHRÉ (HDS) 

GAD AEZAELCHRE (HI) HCHRE (&H1) HCHRE(RHI) +CHRE (HI) +CHRÉ 
CHI) +CHRE (BHI) +CHRE CRH) HCHRE (HH) +CHRE CR&H1) +CHRE (SHI 
) +CHRE (HI) HCHRE (&HI) +CHRE (BH1) +HCHRE (&HI) +CHRÉ (&HB1) +C 
HRE (&HB1) : SPRITES (3) =At 

450 A$=CHRE(&HD) +CHRE (&HA) +CHRE (&HA6) HCHRE (RHEI) +CHRE (% 
HE) +CHR$ (RHG) +CHR$ (HA) +CHRS (2HO) +CHRE (HAD) HCHRE (HH 1) 
+CHRE (HB) +CHR$ (&HOD) +CHRE (HBD) +CHRE (XHO) HCHRE (4HO) +CH 
RE (HO) 

560 A$=ZAS+CHRE (2HZE) +CHRE (&H74) +CHRE (HHFC) +CHRS$ (RHFE) + 
CHR (HEE) +CHRÉ (HHFO) +CHRÉ (&HZE) : SPRITEF (4) =At 

670 AF=CHRE (HI) +CHRE (RHZ) HCHRE (RHZ) HCHRE (HZ) HCHRE (&H 
7) +CHRE (RHO) +CHRE (HI) HCHRE (2HO) +CHRE (HO) +CHRE (&HD) +C 
HRE (&HO) +CHRE (&HO) +CHRE (HO) HCHRE (LHB) +CHRE (HO) +CHRE ( 
&HO) 

480 A$=AE+CHRE (&HCO) +CHRE (2HE2) HCHRE (&HF6) +HCHRE (ZHFC) + 
CHRE (&HFC) +CHRE (&HF&) +CHRE (&HCZ) +CHRE (&H10) HCHRE (RHID) 2 
SPRITES (5) =A£ 

490 AF=CHRE (HB) HCHRE (BH2) +CHRE (RH2) HCHRE (HZ) HCHRE (XH 
4) +CHRE (HHS) +CHRE (HH2) : SPRITES (4) =At 

700 REM %*x PL. VISSER 4x 

718 FUT SPRITE 1,(X,Y),15,1 

720 PUT SPRITE 2, (X,Y+16) ,15,2 

730 FUT SPRITE 3, +9, (Y+22) +LN) , 10,6 
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740 
750 


LINE (X+15,Y+3535) -(X+15, Y+38) 
REM #x%* MUZIEK 


768 FOR FL=i TO 2:FPLAY "t9@viBeeddedeeddedc","tBvidgf 
edcba","tOviOddedecddedectfe!" NEXT PL 


770 


90 

1000 
1010 
1020 
1050 
1040 
1050 
1940 
1070 
1289 
1990 
1100 
1110 
1120 
1170 
1140 
1150 
1140 
1178 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1260 
1270 


FOR I=& TO 14 
READ A‚B 

FOR DEL=1 TO &50:NEXT DEL 
PUT SPRITE I,(A,B+130) „9,5 
NEXT 1 

RESTORE 1720 

FOR I=& TO 14 

BEEP 

READ A‚B 

PUT SPRITE I,(A,B),2,5 
NEXT 1 

PRESET (88,1):PRINT #1,"KEES VISSER" 
REM #*#* BEGINPOS.VIS 
A= INT (RND (-T IME) #160) +32 
B=INT (RND (-T IME) #40) +110 
FOR DEL=1 TO 200:NEXT DEL 
PUT SPRITE @,(A,B) „3,4 

REM #%# HOFDLUS #x% 

ON INTERVAL=7 GOSUR 1230 
INTERVAL ON 

ON SPRITE GOSUB 1540 
SPRITE ON 


D=STICK (@) 


PUT SPRITE 2, (4, Y+16) 515,3 

IF D= THEN X=X+2:G0SUB 1040 

IF D=7 THEN X=X-2:GOSUB 1140 

IF D=1i THEN LN=LN-1:G0OSUB 1220 

IF D=5 THEN LN=LN+2:GO0SUB 1270 
GOTO 990 

REM 4% VERPL.RECHTS #44 

IF X=208 THEN X=X-2: RETURN 

PUT SPRITE 1, (%,Y) 415,1 

PUT SPRITE 2, (X,Y+16),15,2 

LINE (X+15,Y+55) -(X+13, (Y+54) +LN) ,5 
LINE (X+15,Y+355) -(X+15, (Y+354) +LN) 
PUT SPRITE 3, (X4#9 , (VY+32) +LN) „10,6 
RETURN 

REM xxx VERPL.LINKS #%% 

IF X=25 THEN X=X+2: RETURN 

PUT SPRITE 1, (%sY2, 1501 

FUT SPRITE 2, (43 V+16),15,2 

LINE (X+17,V+#55) (4417; (Y+54)+LN) 45 
LINE (X+15,Y+#55) -(X+15, (Y+54) +LN) 
PUT SPRITE 3, (X+9, (Y+32) +LN) „10,6 
RETURN 

REM #x* LIJN OMHOOG sa 

IF LN<5 THEN LN=LN+2: RETURN 
PRESET (4415, (VESOIFLNI 5 

PUT SPRITE 3, (X49, (YESSIELN) 10,6 
RETURN 

REM sx LIJN OMLAAG #% 
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1280 IF LN:88 THEN LN=LN-2: RETURN 
1298 LINE (X+15,Y+33)-(X+15, (Y+32) +LN) 
1300 FUT SPRITE 5, +9, (Y+32) +LN) „10,6 
1310 RETURN 

1320 REM #*x VERPL. /VIS se 

1330 REM 

1340 UP=UP+1 

1350 IF UF+N=18 THEN COL=9:GO0TO 1348 ELSE COL=5:GOTO 1 
370 

1368 UF=1 

1370 IF A>=28 THEN 1418 ELSE BEEP :SWAP L‚R:SWAP O,P:C 
NT=CNT-10 

1380 IF CNT=@ THEN 1750 

1390 LINE(28,20) (70,20) „4, BF 

1400 FSET (20,20) : PRINT #1 ,CNT 

1418 IF A{=198 THEN 1450 ELSE BEEP:SWAF L‚R:SWAP O,P:C 
NT=CNT-10 

1420 IF CNT=@ THEN 1750 

1450 LINE(20,20) -(70,30) ,4,BF 

1440 PSET (28,20) :PRINT #1,CNT 

1450 A=A+L 

1460 IF Bi=108 THEN SWAP C‚F 

1470 IF Bè>=148 THEN SWAP C‚F 

1480 B=B+C 

1490 PUT SPRITE 8, (A,B) „COL ,O 

1500 INTERVAL ON 

1510 SFRITE ON 

1520 RETURN 

1538 REM #4 VIS AAN DE HAAK 

1548 INTERVAL OFF 

1550 SPRITE OFF 

1568 UP=1 

1570 VIS=VIS+1 

1580 LINE(200,20) -(220,30) „4, BF 

1590 PSET (280,20) :PRINT #1,VIS 

1600 FOR K=20 TO 255 STEP 2 

1618 LN=LN-1 

1620 IF LNSS THEN LN=LN+1:G0T0 1690 

1630 PRESET (X+13, (Y+35) +LN) ,5 

1640 PRESET (X+15, (Y+35) +LN) „5 

1650 PRESET (X+17, (Y+35) +LN) „5 

16468 PUT SPRITE 5, (X+9, (Y+22) +LN) „10,6 
1670 PUT SPRITE @, (X+9, (Y+34) +LN) ,9,0 

1688 SOUND @,K:SOUND 1,@:SOUND B,1B:NEXT K 
1690 SOUND @,0:SOUND 1,0 

1708 RETURN 900 

1718 REM #*% DATA «ex 

1720 REM # 1/GDB/85 xx 

1738 DATA 56,1,72,1,86,16,104,16,120,32,136,16,152,16, 
168, 1,184,1 

1740 REM # TOTAALSTAND/ET # 

1750 CLS 

176@ INTERVAL OFF 

1770 SPRITE OFF 

1780 FOR I=1 TO 22 


22 


1790 
1800 
1810 
1820 
1850 
1844 
1850 
1840 


FUT SPRITE 1,(254,192) ‚0,0 
NEXT I 

COLOR 15,4,4 

PSET (10,10):PRINT #1,"U HEET",VIS 

PSET (110,20) :PRINT #1,"VIS(SEN) GEVANGEN" 
FOR DEL=1 TO 2500 :NEXT DEL 

COLOR 15,4,4 

END 


Voorbeeld 


VISSEN 
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4.3 Pipo Duiker 


Voor wie nog nooit van de springplank in het zwembad sprong, is dit een prima leer- 
school. Je moet er rekening mee houden dat Pipo, zo noemt men die grapjas, in dit 
spel origineel wil zijn, door van de plank in een kopje koffie te duiken. Je kunt hem 
daarbij echter helpen door op het juiste ogenblik op de spatietoets te duwen, want 
Pipo is al oud en zijn ogen doen het niet al te best meer. O ja, om het wat moeilijker te 
maken, kun je hem laten duiken vanaf drie verschillende hoogten. 

De bediening van dit spel is vrij simpel: 

1. eerste maal de spatietoets indrukken is Pipo laten springen; 

2. tweede maal de spatietoets indrukken is Pipo laten duiken. 

Na tien beurten is het spel ten einde en zie je hoeveel keer Pipo Duiker goed heeft 
gesprongen. 

Wie het programma wil ontleden, zal opmerken dat de beweging van de sprong met 
Read/Data werd gerealiseerd. Zo zie je eens hoe snel dit kan gaan. 


Programma 

10 REM HRH NHK IHN MKM HN HH HH 

110 REM #x*x PIPO DUIKER #%% 

120 REM MHR H HMH H NK HMI HN HAA 

1:38 CLS 

148 SCREEN 2,2 

150 KEY OFF 

1450 REM #4 VARIABELEN #4 

170 Y=160:L=28 

189 FO0=0:GE=O 

190 REM #4 UIITLEG/SPEL %%% 

209 OPEN "GRP: " FOR OUTPUT AS #1 

210 FRESET (70,10):PRINT #1," PIFO DUIKER se" 

220 PRESET (16,20):PRINT #1,"FIFO DE CLOWN WIL DE" 

230 PRESET (16,40) :FRINT #1, "MENSEN OVERTUIGEN VAN" 

240 FRESET (16,50): FRINT #1,"ZIJN ‘KUNNEN’... " 

250 FRESET (16,40): PRINT #1,"HIJ ZAL VAN EEN SPRING="' 

260 FRESET (16,70): PRINT #1, "PLANK NAAR BENEDEN SPRINGEN" 
270 PRESET (146,80):PRINT #1,"IN EEN KOP KOFFIE!" 

280 PRESET (14,90):PRINT #1,"PIPO IS AL TAMELIJK OUD EN" 
298 FRESET (16,180):FRINT #1,"ZIJN OGEN DOEN HET NIET " 
300 FRESET (14,110):PRINT #1,"AL TE BEST MEER, MAAR JE" 
210 PRESET (14,120):PRINT #1,"KUNT HEM HELPEN DOOR OP" 

220 FRESET (16,150):PRINT #1,"HET JUISTE OGENBLIK TE" 

330 FRESET (16,140):FRINT #1, "ROEPEN ZODAT PIFO WEET" 

240 PRESET (14,150):PRINT #1, "WANNEER HIJ MOET DUIKEN!!!" 
350 PRESET (16,180):FRINT #1,"DRUK OF EEN TOETS" 

ZA4 KEZINKEYS 

370 IF K&="" THEN GOTO 2460 

588 CLS 

390 FRESET (16,30):FRINT #1,"OM HEM TE LATEN SPRINGEN" 
400 PRESET (16,40) :PRINT #1,"DRUK JE OF DE SPATIETOETS. " 
A10 FRESET (146,60): PRINT #1,"0OM HEM TE LATEN DUIKEN DRUK" 
420 FRESET (146,70):PRINT #1,"JE NOGMAALS OF DE SFATIETOET 


450 PRESET (16,90) :PRINT #1,"JE HEBT 10 BEURTEN. " 
440 FRESET (16,180):PRINT #1,"DRUK OP EEN TOETS" 
450 KE&=INKEYS 

46Q IF Kf!" THEN GOTO 450 


4830 PRESET (16,50):PRINT #1 ,"HOOGTE VAN DE SFRINGPLANK?" 
490 PRESET (20,80):PRINT #1,"LAAG zij 
500 FRESET (28,90):PRINT #1 , "NORMAAL zn 

518 PRESET (20,100):PRINT #1, "HOOG = 5" 
520 PRESET (40,180):PRINT #1,"DRUK OP EEN TOETS" 

50 KE=INKEYS 
540 IF K$="" THEN GOTO 5350 
530 REM ** MOEILIJKH.GRAAD 
568 INFUT "hoogte'":M 
570 IF M<t OR A22 THEN 5460 
5838 IF M=1 THEN 610 ELSE IF M=2 THEN 620 ELSE &70 
590 IF M=2 THEN LV=87 AND VP=34 AND C=1 
400 IF M=3 THEN LV=7@ AND VP=51 AND C=2 
618 LV=104: VF=17:C=0: GOTO 450 
628 LV=87: VP=17:C=2:GOTO 650 
458 LV=70: VP=17 1: C=5 
240 REM #3 SCHERMOPBOUW ##x 
&5@ SCREEN 2,2:COLOR 15,10 
240 LINE (@,150)-(256,192) , „EF 
470 LINE (249,56) -(254,176) , „BF 
430 PRESET (56,180):PRINT #1," %##PIFO DUIKER%%" 
690 PRESET (146,10):PRINT #1,"POGING: #assmmat  GELUKT: 
700 PRESET (4£8,10):PRINT #1 ,FO 
718 PRESET (224,10):PRINT #1 ,GE 
720 REM xxx SPRITES-DEF, #x 
750 A£=CHRE (&HO) +CHRE (HD) +CHRE (LHO) +HCHRE (3HD) HCHRE (EHD) + 
CHRÉ (&HO) +CHRE (&HFF) +CHRE (&H7F) +CHRE (HSS) +CHRE (&H7F) +CHR 
E(&H7F) +CHRE (&H7F) +CHRE (RH7F) +HCHRE (LHEE) +CHRE (RHIF) +HCHRE ( 
HF) 

740 AFZAECHRE (L&H) +CHRE (HO) +CHRE (&HD) +CHRE (&HD) HCHRE (LH 
B) +CHRE (&HO) +CHRE (HEB) HCHRE (&HFG) HCHRE (RHS) HCHRE (HF 1) + 
CHR (&HF 1) +CHRE (&HF2) HCHRE (HHEC) +CHRE (HED) HCHRE (HHC) +CH 
R$ (&H3O) : SPRITEF (1) =A$ 

750 A$=CHRE (&HD) +CHRE (&HB) +CHRE (&HD) HCHRE (HD) +CHRE (HD) + 
CHRE (&HO) +CHRE (&HO) +HCHRE (&HO) +CHRE (HHD) +CHRE (RHO) HCHRE (2H 
0) +CHRE (&HD) +CHRE (HHD) HCHRE (HHD) +CHRE (RHO) +CHRE (HO) 

768 Af=ZAE+CHRE (2H70) +CHRE (&HSB) +CHRE (2H70) HCHRE (2H20) +CHR 
£ (HSO) +CHRE (RHDE) +CHRE (&HDB) +CHRE (&HDB) +HCHRE (&H9B) +CHRE ( 
ZHFO) +CHRÉ (&H7O) +CHRE (4H2B) HCHRE (&H20) +CHRS (&H2B) +CHRE (ZH 
21) +CHRE (&H7F) : SPRITES (2) =A$ 

770 Af=CHRE (&HD) +CHRE (HHD) +CHRE (HB) +CHRE (&HO) HCHRE (HD) + 
CHRE (HD) +CHRE CHO) +CHRE (LHO) +CHRE (&HO) HCHRE (RH 1) HCHRE (LH 
2) +CHRE (HO) +CHRE (LHO) +CHRE (HHD) HCHRE (HHD) HCHRE (EHD) 

780 AfZAE+CHRE (&HD) +CHRE (UHZB) HCHRE (&HE4) +CHRE (&HSB) HCHRE 
(HLO) +CHRE (HEB) +CHRE (&H7C) HCHRE (RH7C) HCHRE (LHFC) HCHRE (2 
HZC) +CHRE (&HZO) HCHRE (&H1 0) +CHRE (LHB) HCHRE (&HE) +HCHRE (&H1 1) 
+CHRE (HEF) 2 SPRITES (5) =At 

790 AFZCHRE (HD) +CHRE (HO) HCHRE (LHB) HCHRE (BHO) HCHRE (LHO) + 
CHRÉ (&HA) +CHRE (2HD) +CHRE C2HO) HCHRE (HHA) HCHRE (RHO) +CHRE (BH 
0) +CHRE (&HO) HCHRE (HO) +CHRE (HO) HCHRE (BHO) HCHRE (HD) 


25 


300 AFZAECHRE (&H7 1) +CHRE (&HAA) HCHRE (2H 74) +HCHRE (HEB) +CHK 
£ (&H78) +CHRE (&HF B) HCHRE (HFD) HCHRE (&HFE) +CHRE (2HFB) +CHRE C 
ZHEO) HCHRE (2H70) HCHRE (2H2D) HCHRE (2H2O) HCHRE (RH2O) HCHRE (22H 
21) +CHRE (&H7F) : SPRITES (4) =A$ 

818 AS=CHRE(&HD) HCHRS (2HO) +CHRE (&HO) +CHRE (HO) +CHRE (HHD) + 
CHRÉ (&HD) +CHRE (EHD) +CHRE (&H1) HCHRE (HHE) HCHRE (RHS) HCHRE (2H 
Z)+CHRE(&HI1A) HCHRE (EHIC) +CHRE (&H1O) HCHRE (RHID) HCHRE (HIG) 
820 A$=AE+CHRE (&H7 1) +CHRE (HEE) +CHRE (&H76) HCHRE (&H7C) +CHR 
E (HIB) +CHRE (2H70) +CHRE (&HFO) HCHRE (HFD) HCHRE (HFD) +HCHRE ( 
ZHEO) HCHRE (&HCO) +CHRE (2HD) +CHRE (HO) +HCHRE (LHO) HCHRE (2HD) + 
CHRE (&HD) 2 SPRITES (5) =A$ 

850 AF=CHRE (RHO) +CHRE (RHO) +CHRE (HI) HCHRE (HD) HCHRE (HD) + 
CHR (&H 1) HCHRE (B&H 3) +HCHRE (HH27) HCHRE (R&HS7) HCHRE (ZHBC) +CHR 
$ (EHA) HCHREA (HO) +CHRE CHO) HCHRE (&HO) HCHRE (EHD) HCHRE (LH) 
340 AF=ZAECHRE (EHD) +CHRE (HO) HCHRE (HO) HCHRE (2HBO) +CHRE (2, 
HAE) +CHRE (HED) +CHRE (&HFE) +CHRE (HFD) +CHRE (HED) +CHRE (HO 
)+CHRE (BHO) CHR (HO) +CHRE (WHO) HCHRE (HHD) HCHRE (RHO) HCHRE C 
LYHO) 2 SPRITES (6) =Af 

350 AF=CHRE (&HO) +CHRE (RHO) +CHRE (UHO) HCHRE SHD) HCHRE CHF B) 
+CHRE CRHPD) HEHRE (HHS) HCHRE (&HB) HCHRE (RH7) HCHRE (HI) HCHEE ( 
ZHO) HCHRE CHO) +CHRE (HO) HCHRE (&HO) HCHRE (HHD) HCHRE (EHD) 
850 AFZOELCHRE (&HO) HCHRE (BHO) HCHRE (BHO) HCHRE (RHO) HCHRE (EH 
DO) +CHRE (RHO) CHR (&HEO) +CHRE (HHF 7) HHR CRHEF) CHR (&HES) + 
CHRE CHA) HEHRE (EHA) CHR (HH) HCHRE CEL) HCHRE CHO) HCHREE (2H 
MD): SPRITEE (7) zAE 

270 AF=CHRE (&H7E) HCHRE (1144) HCHRE (HHC) HCHRE (HHC) HCHRE (HH 
DCHRE CHHUE) HOHRE CRIZ) HCHREE CRIZ) CHRE CH&H7Z) HCHRE (HHE) HEHRIE € 
HED HCHRE CHE) HCHRE CBHD) HOHREE CRHA) +CHRE C&HLE) HCHREE C2H 1) 
8830 AFZAECHRE (2HEC) HCHRE (144) HCHRE (&H6D) CHRE CHEO) CHR 
FCHCO) CHR KHBO) HCHRE CRH) HCHRE CHC) HCHRE CLHCO) CHR ( 
SHA) HCHRE CHHAO) HCHRE (HAA) HCHRE (HZO) HCHRE CHHAO) CHE CH 
830) HCHRE (HO) # SPRITES (0) zAt 

390 AE=CHRE (HPO) HCHRE (HSO) +CHRE (&HB) HCHRE (&HIC) HCHRE (&H 
Ze) HCHRE (HEB) HCHRE CHIC) HCHRE (2HBE) HCHRE CHA 7) HCHRE (BH 7 
)ECHRE (HHD) HCHRE CHHE) +CHREE (LHA) HCHRE (HH) HCHRE (HHD E) HCH 
RE CH) 

N00 AFZAEHCHRE (&HA) +CHRS (LHA) HCHRE (&H1D) HCHRE (UHEB) HCHRE ( 
ZHA4AC) +CHRE (&HIC) HCHRE (&H5O) HCHRE (&H7 1) HCHRE (HHEZ) +CHRE (2H 
E4) +CHRE (&HEB) +CHRE (BHP 1) +CHRE (HHEO) HCHRE (2HB4) +CHRE (HCO 
)+CHRÉE (&HE2) : SPRITES (9) =At 

918 AS=CHRE (HE) +CHRÉ (LHE) HCHRE (&H18B) +HCHRE (2HZO) HCHRE (HE 
DO) +CHRE (HE 1) HCHRE (BHE2) HCHRE (HHC 1) HCHRE (&HED) HCHRE (HED) 
+CHRE (RH ZD) +CHRE (&H1B) HCHRE (HHC) HCHRE (HH 7) HCHRE (&HZ) HCHRE 
CHI) 

220 AFZAS+CHRE (&HCD) +CHRE (LH7D) HCHRE (&HZB) +CHRE (HHC) HCHRE 
C2HB4) +CHRE (EHA) HCHRE (BH26) HCHRE (HH46) HCHRE (HHBE) HCHRE (2 
H7) +CHRE (&H6) HCHRE (RHC) HCHRE (2H18) HCHRE (&H70) +HCHRE (HHED) + 
CHRÉ (HAD) : SPRITEF (10) =Af 

958 AS=CHRE (HZ) HCHRE (&HA) +CHRE (HF) +HCHRE (HA) HCHRE (EHD) 
+CHRE (H67 ) +HCHRE (HEF) +HCHRE (2:H7F) HCHRE (HHSS) HCHRE (HH7F) +C 
HRE (&H7F) +CHRE (UHF) HCHRE (&H7F) +CHRE (HEF) +HCHRE (&H1 0) +CHR 
& CHF) 

PAD AFZAELCHRE (&HO) +CHRE (HBD) HCHRE (LHCD) +CHRE (4HBO) HCHRE 
(HBO) HCHRE (2HEO) HCHRE (HHFE) +CHRE (HF 6) HCHRE (RHID) +HCHRE (2 
HF 1) +CHRE (BHE 1) +CHRE (BHE 2) +CHRE (RHFC) +CHRE (HED) +CHRE (HHC 
0) +CHRE (&H3O) : SPRITE (11) =At 
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950 AF=CHRE (2HBD) HCHRE (LH20) HCHRE (HD) +CHRE (&HBO) +CHRE (LH 
8) +CHRE (HAB) +CHRE (HB) +CHRE (&H4D) +HCHRE (&HD) +CHRE (4HB) +CH 
R$ (&HAZ) HCHRE (RHO) HCHRE (HSA) +CHRE (BHO) +CHRE (2H4) HCHRE (ZH 


0) 


9,68 AFZAEHCHRE (&HID) +CHRE (EH 1) +CHRE (BHA) HCHRE CHIO) +CHRE ( 
UHE) HCHRE (2H28) HCHRE (HO) HCHRE (BHA) HCHRE (EHD) HCHRE (RHB) + 
CHRÉ (&HBO) HCHRE (&HB) +CHRE (RAE) HCHRE (HBO) HCHRE (HHD) HHR 
$ (HBO) : SPRITES (12) =At 

970 REM #44 HOOFDPROGRAMMA #4 

N88 REM #xx TELLERS/SET/RESET a 


90 
1000 
1010 
10920 
1950 
18408 
1050 
1060 
1970 
1282 
1990 
1100 
1110 
1120 
1150 
1140 
1150 
11460 
1170 
1189 
1190 
1200 
12108 
1220 
1220 
1240 
1250 
1260 
1270 
1280 
1290 
1500 
1510 
1520 
RA) 
1540 
1550 
1560 
1570 
1580 
1590 
1400 
1410 
1420 
1450 


LINE(84,18) -(68,10) ,4,BF 
FO=PO+1 

PRINT #1,PFO 

COLOR 15,4 

0=0 

RESTORE 1280 

S=INT (RND (-T IME) #150) 

LINE (@,LV)-(40,LV) 

BEEF 

PUT SPRITE 1,(70+5,Y) ‚5,1 

PUT SPRITE @, (L‚LV-VP) „10,2 

IF STRIG(@)=8 THEN 1100 

Q=0+1 

PLAY "siZn2s" 

LINE (@,LV)-(48,LV) ‚4 

LINE (B,LV)-(48,LV+8) 

PUT SPRITE @, (L, (LV-VP) +8) , 18,2 
PUT SPRITE @, (L‚LV-VP) „10,3 
LINE (@,LV)-(48,LV+8) „4 

LINE (@,LV)-(48,LV) 

IF Q=2 THEN 1270 

FOR I=1 TO 50 

FUT SPRITE @, (L, (LV-VP)=1I) „10,4 
NEXT 

FOR I=1 TO 52 

FUT SPRITE @, (L, ((LV-VP) -50) +1) „10,2 
NEXT 

GOTO 1110 

P=S 

FOR I=40@ TO 222 

READ A 

IF I=120 THEN P=6 ELSE IF 1=158 THEN P=7 
PUT SFRITE @, (1,A-(VPXC)) ,10,P 


IF STRIG(@)=-1 THEN 1380 

NEXT 

RESTORE 1930 

0=0 

FUT SERITE @, (1,A-(VPC)) ‚10,10 


GOSURB 1710 

REM atx PIPO VALT SCHUIN se 

FOR R=1 TO 20 

FUT SPRITE @, (I+R, (A- (VPC) DR) ‚18,7 
NEXT KR 

REM st PIFO VALT RECHT #3 

FOR T=R+4 TO 150 STEP 2 


27 


1440 ON SPRITE GOSUE 1500 
1450 SPRITE ON 

1468 IF (A-(VP4C))+T>1460 THEN 14660 

147® PUT SPRITE @, (I+R, (A- (VPC) +T) „10,8 

1480 NEXT T 

1490 REM %*# COINCIDENCE s 

1500 SPRITE OFE 

1510 IF I+20%64+5 THEN 1443 

1520 IF 1+20:72+5 THEN 14640 

1520 REM #4 GOEDE SPRONG ##+# 

1540 PUT SPRITE 1,(256,192),5,1 

1558 PUT SPRITE @, (78+5,Y) ,5,12 

1560 FOR DEL=1 TO 50: NEXT DEL 

1570 PUT SPRITE 1,(70+S,Y) ‚3,11 

1580 BEEP 

1590 LINE(240,18)-(224,10) ,4,BF 

14600 GE=GE+1 

1610 PRINT #1,GE 

1420 IF GE=10 THEN 1770 

1630 IF PO=1@ THEN 1840 

1648 GOTO 990 

1650 REM #*#* PIPO VALT ERNAAST... #*+* 

1668 PUT SPRITE @, (I+R, (A-(VP&C))+T) „11,10 

1678 FOR DEL=1i TO 25:NEXT DEL 

1488 PUT SPRITE B, (I+R, (A-(VP&C)) +T) „5,9 

1698 GOTO 1710 

1700 FUT SPRITE @, (I+R,A+T) ,8,8 

1710 REM 3% ONTPLOFFING #%** 

1720 FOR SN=1 TO 64 :SOUND @,@:SOUND 1,@:SOUND 2,0: SOUND 
2,0: SOUND 4,@: SOUND 5,0: SOUND &,15:SOUND 7,3 

1728 SOUND 9,16:S0UND 18,16:SOUND 11,@:SOUND 12,10: SOUND 
12,0::FOR SN=1& TO @ STEP —.@5:SOUND B,SN:NEXT SN 

1740 IF PO=1@ THEN 1860 

1750 GOTO 990 

1768 REM xt 10 GOEDE SPRONGEN 

1770 CLS 

1788 COLOR 15,4,4 

1790 FRESET (20,20) :PRINT #1,"PROFICIAT...JE HEET FIPO" 
1809 FRESET (20,30) :PRINT #1,"ZEER GOED GEHOLPEN" 

1818 PRESET (28,40) :PRINT #1,"DOOR JOUW UITSTEKENDE HULF" 
1820 PRESET (20,50):PRINT #1,"MAAKTE HIJ 18 GOEDE SPRON 
GEN" 

1830 PRESET (20,80):PRINT #1,"WIL JE NOG EENS?... J/N" 
1840 GOTO 1910 

1850 REM #*#* SCORE NA 18 SPRONGEN #4 

18468 CLS 

1870 COLOR 15,4,4 

1880 PRESET (16,20):PRINT #1,"JE HEBT.. ..GOEDE SPRONG 
LEN) * 

1890 PRESET (88,20):PRINT #1,GE 

1900 PRESET (20,80):PRINT #1,"Wil je nog eens?...j/n" 
1910 REM #** 1/GDB/85 xx 

1920 REM sx NIEUW SPEL? #4 

1930 K$=INKEY$ 

1940 IF K$="" THEN 1930 
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1950 IF K$="j" THEN 1960 ELSE IF K$="n" THEN END ELSE 1 
910 

1960 CLS 

1970 L=28:P0=0: GE=O 

1980 SCREEN 2,2 

1990 GOTO 450 

2000 REM %#%* DATA/ZWEEFBEWEGING 

2018 DATA 92,91,90,89,88,87,87,86,85,84,84,83,82,81,81, 
80,80,79,78,78,77,76,76,75,74,74,73,73,72,72,71,71 

2020 DATA 70,70,49,49,48,60,67,67,bb,b6,65,65,64,64,63, 
63,63,62,62,62,61,61,61,61,60,60,460,60,460,60 

2038 DATA 59,59,59,59,59,59,58,58,58,58,58,58,58,58,58, 
58,58,58,58,58,58,57,57,57,57,57,57,57,57,57 

2040 DATA 57,57,57,57,57,57,57,57,58,58,58,58,58,58,58, 
58,59,59,59,59,59,59,59,60,60,60,60,60, 40 

2050 DATA 61,61,61,61,62,62,62,63,63,63,64,64,64,65,65, 
66,66,67,67,65,68,69,69,70,70,71,71,72,72 

204@ DATA 73,73,74,74,75,76,76,77,78,78,79,80,80,81,82, 
82,85,84,84,85,86,86,87,88,88,89,90,91,92,93,94,95,96,9 
7,98,99,100,101,102,183,104,105 


Voorbeeld 
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4.4 Spookrijder 


Spookrijder is een actiespel waarbij met de cursortoetsen (links en rechts) een race- 
auto kan worden bestuurd. Het geheel is zo opgezet dat je een driedimensionaal 
beeld van de renbaan te zien krijgt. Er werd een groot aantal bewegende sprites 
gebruikt en met opzet werd hier niet van machinetaalsubroutines gebruik gemaakt 
om te laten zien dat je met MSX-BASIC vele onderdelen van een programma tegelij- 
kertijd kunt controleren en corrigeren zonder daarbij te veel aan snelheid in te boe- 
ten. De beweging, alsook de kleuren zijn erg belangrijk in een dergelijk spel en ver- 
groten het effect. De bedoeling is de aanstormende racewagens te ontwijken en te 
zorgen dat je de paaltjes aan de zijkant van de weg niet omver rijdt, want de minste 
aanraking betekent voor jou onmiddellijk het einde van de wedstrijd. De tijd dat je op 
het circuit kunt blijven, wordt op het scherm aangeduid, alsook de tot nu toe beste 
tijd. 

Veel succes coureur… 


Programma 

198 REM HHR HR HHN N HMK HMH HH IH 
118 REM xx SPODOE-RIJDER 4% 
120 REM HHA N HHM IE HI HH MH IHM HH 
150 CLSs:KEY OFF 

149 SCREEN @ 


158 PRINT * SPOOKRIJDER" 

168 FOR I=1 TO 19 

178 PRINT " MNM H NRN HKH 

180 NEXT I / 

198 FRINT " END"! 

2040 PRINT 

210 PRINT "HOEVEEL TIJD KUN JE OP DE ss. ke 
220 PRINT "...RENBAAN BLIJVEN ZONDER, « … «un Nik 


250 PRINT "...AANGEREDEN TE WORDEN DOOR EEN. " 
240 PRINT ",..VAN DE DRIE SPOOKRIJDERS. « «7 


260 FRINT "gebruik de HORIZONTALE (L&R) " 

270 FRINT "cursortoetsen om te sturen. 

28304 FRINT PRM NI MAIMI MHM NH HHM MHI IEI MIE HMI HIE HEHEH HE HH 
290 PRINT "druk op de spatietoets om te starten" 
ZA PRINT "HRH NHHRRRN NNM HN HHN KHN HIN HUH IHM HHM! 
s14 IF STRIG(G)=0 THEN 510 

220 REM #4INIT% 

So COLOR 15eds1 

540 SCREEN 2, 25KEY OFF 

550 CLS 

260 OFEN “GRP: "FOR OUTPUT AS #1 

570 REM #%% VARIABELEN %%% 

580 HSC=0 

zr X=120:Y=rl4A: VAA: Heel 16 

400 Reis Be, Ee eel 

419 O=-1sPF=ls TEL=O 

420 REM xx DEF.KARAKTERS Ht 

450 AS=ZCHRE (HZ) +CHRE (SHE) +CHRE (&HEB) HCHRE (HET) +CHRE (2 


HEF) +CHR$ (HOF) +CHRE (&HP8) +CHRE (&HFF) +CHRE (HBB) +CHRE (2:H 
20) +CHRÉ (&HBF ) +CHRE (&H7D) +CHRE (2H70) +CHRE (&HD) +HCHRE (HD) 
+CHRE (2HD) 

440 AFZAE+CHRE (HED) +CHRE (HEB) HCHRE (&H18) HCHRE (2HBE) +CH 
RE (&HEF) +CHRE (&HF9) +CHRE CEH1 9) HCHRE CHHFF) HCHRE (RH 1) +CHRE 
CHC) CHRE CHF 1) +HCHRE (HE) HCHRE (&HE) 2 SPRITES (15) ZA4 

450 AF=CHRE (HO) HCHRE (XHO), HCHRE (RHO) HCHRE (RHO) +HCHRE (HD) 
+CHRE (&H1) +CHRE (RHB) +CHRE C2H1E) +CHRE (&H1E) HCHRE (&HF) +CH 
RE CHHLP) HCHRE CLH7ZD) HCHRE (2H7E) +CHRE (2H7F) HCHRE (HZC) +CHR 
&(&H7CD 

460 AFZAEHCHRE RHO) HCHRE (EHD) HCHRE (HHD) +CHRE (3HO) HCHRE (2 
HO) +CHRE (4HBO) HCHRE (BHDE) +CHRE (HHFB) +CHRE (HHDB) HCHRE (KHE 
BD) HCHRE (UHB) HCHRE CHHBE) HCHRUE (&HFE) +CHRE (&HFE) HCHRE (HHZE 
)CHRE CRHSE) « SPRITES (0) =A£ 

A7D AFSCHRE (4HO) HCHRE CRHT A) HCHRE (HH2E) HCHRE (HHCE) CHR (2 
HAC) +CHRE (HHR) HCHRE (HHBE) +CHRE (RHB) HCHRE (UHBE) HCHRE (EH 
2D) HHR (&HAC) HCHRE (RHZE) HCHRE (RHEE) HCHRE (HB) HCHRE (HD) 
+CHRE (&HD) 

480 AfZAE+CHRE (&H10) +CHRE (&H2B) HCHRE (&HCA) +CHRE (&H1:E) HCH 
R$ (&H72) +CHRE (HHEA) HCHRE (HB) HCHRE (RHID) HCHRE (HPO) HCHRE 
(HB) +CHRE (2H4A) +CHRE (HHE2) HCHRE (ZHE7) HCHRE (2HBB) HCHRE (2, 
HSO) +CHRE (&H20) 2 SPRITEE (1) =AE 

490 AF-CHRE (HO) HCHRE (LHB) +HCHRE (RHO) +CHRE (4HB) +CHRE (RHO) 
+CHRE (BHE) HCHRE (RH7) HCHRE (RHE) HCHRE (HHS) HCHRE (HZ) HCHRE ( 
HO) +CHRE (&HB) HCHRE (LHO) HCHRE (HD) HCHRE (HHD) HCHRE (2HO) 
500 AFZAE+CHRE (EHA) +CHRE (HO) HCHRE (HO) +HCHRE (LHO) +CHRE (2, 
HBO) +CHRE (HAB) +HCHRE (HHCD) +CHRE (HHC) HCHRE (HHD) +HCHRE (LHA 
O) : SPRITES (2) =At 

518 AF=CHRE (&H1D) +HCHRE (HD) HCHRE (2HD) HCHRE (2HO) +CHRE (HO 
CHR CHA) HCHRE (LHA) HCHRE (HO) HCHRE (HHD) HCHRE (RHO) HCHKE 
CHO) +CHRE (HD) HCHRE (UHB) HCHRE (HHA) +HCHRE (LHO) HCHRE (2HO) 
520 AFZAEHCHRE CHE) +HCHRE (&HO) HCHRE (LHB) HCHRE (RHO) CHEF (2, 
HO) +CHRE (EHD) HCHRE (&HB) +CHRE (&HO) +CHRE (HD) HCHRE (HHD) HCH 
RE (&HO) HCHRE (2HA) +CHRÉ (HHA) +CHRE (HBD) HCHRE (RHBO) HCHREE (2 
HSO) s SFRITES (5) =At 

550 AE=CHRE (&H1O) +CHRE (&H1D) +HEHRE (&H1D) HCHRE (BH 1 0) HEHRE ( 
HO) HEHRE CHO) HEHRE BHG) -CHRÉ (HO) HCHRE (RHO) HCHRE (HHD) +C 
HRE C&HO) HCHRE CHA) HCHRE CRH) +CHRE CHH1) HCHRE CHI) HCHRE (RH 
1: SPRITES (4) =A& 

540 Af=CHRS (HH) +CHRE (&H18) HCHRE (HLB) HCHRE (HLO) +CHRE ( 
UHB) CHRE (HO) HCHRE (SHD) HCHRE (EHD) CHR (HHD) HEHRE CHO) + 
CHRE (HD) CHR CBHD) HEHE (BHA) HCHRE CHI) HCHRE (RH) +CHEE (3 
HD 

5D AFZAEHCHRE (RHO) +CHRE (HO) +CHRE (LH) HCHRE (RHO) HCHRE (2 
HO) +CHRE (&HO) HCHRE (HHD) +CHRE (UHB) HCHRE (HHD) HCHRE (LH) CH 
R$ C&HO) HCHRE (UHRO) HCHRE (HBO) HCHRE (HBO) HCHRE (2HBO) +CHRE 
(HBO) « SPRITES (5) =AF 

56 AFSCHRE(KHIC) +CHRE (&H1C) HCHRE (&HIC) +CHRE (BHIC) HCHRE ( 
BHIC) HCHRE (HIC) +CHRE (&HIC) HCHRE (&HIC) HCHRE (RHE) HCHRE (BH 
2) +CHRE (RUHE) HCHRE (HHE) HCHRE (HHS) +CHRE (BHE) HCHRE (HH TE) +CHR 
$ (RH) 

57D AFZAEHCHRE (&HO) +CHRE (EHD) +CHRE (LHB) HCHRE (RHB) HCHRE (2 
HB) HCHRE (HO) HCHRE (2HO) HCHRE (HO) HCHRE (HHAO) HCHRE (HOO) + 
CHRÉ (HBO) HCHRE (HBO) HCHRE (&HBD) +HCHRE (HI) HCHRE (KHBO) +C 
HRE (HAD) : SPRITEF (4) =At 
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580 AS=CHRECKHIE) +CHRE (HIE) +CHR$ (&HIE) HCHRE (HIE) HCHRE ( 
UHIE) +CHRE (&HI1F) +CHRE (&H1F) +CHRE (&H1F) +CHRE (HIE) +HCHRE (2 
HIE) +CHRE C&HIF) +CHRE (HF) +CHRE (&HE) HCHRE (HF) +CHRE (&HF ) + 
CHRÉ (&HF) : SPRITES (7) zAf 

590 AS=CHRE (HO) +CHRE (&HO) HCHRE (HD) +CHRE (HD) +CHRE (HD) 
+CHRE CHI) +CHRE (HO) HCHRE (HB) HCHRE (RHO) HCHRE (&H4) +CHRE ( 
SHA) +HCHRE (HO) HCHRE (&H1O) +CHRE (&H1D) +CHRE (HH1O) : SPRITEE ( 
3) =At 

400 AS=CHRE (HD) +CHRE (&HO) +CHRE (HHD) +CHRE (RHO) +CHRE (2HO) 
+CHRSE (&HO) HCHRE (HD) HCHRE (RHO) HCHRE (HB) +HCHRE (HB) +CHRE ( 
HB) HCHRE (HE) HCHRE (&HD) HCHRE (LHB) +CHRE CLHD) HCHRE (2:HO) 
210 AFZAE+CHRE (HO) HCHRE (&HO) HCHRE (HBO) HCHRE (XHBO) HCHRE 
(HBO) : SPRITES (9) =Af 

420 AF=SCHRE (HI) +CHRE (&H1) +CHRE (RHID +CHRE (RH1) +CHRE (HI) 
+CHRE (2HO) HCHRE (HO) HCHRE (4HO) +CHRE (&HO) HCHRE (EHD) HCHRE 
HO) HCHRE CEEHCO) HCHRE (&HCO) +CHRE (HHCO) HCHREE (HHCA) HCHRE (LH 
Ca) 

ED AFZAEHCHRE (HBD) HCHRE (4H30) HCHRE (HHBO) +CHRE (HBO) +CH 
R$ (&HB0) « SPRITEE (10) =At 

640 AE=SCHRE (HZ) CHR CLH7) HCHRE (&H7) HCHRE CHH7) HCHRE (LH 7) 
+CHRE (RH7) HCHRE (&H7) +CHRE (HZ) HCHRE (SHE) HCHRE (HHEO) HCHR 
£CHHEO) HCHRE CHEO) HCHRE (HHEO) +CHRE CHHEO) +CHRE (LHED) HEHE 
CHIO) 2 SPRITES (11) zAf 

650 AEZCHRE CKHLE) HCHRE CRHILE) HCHRE CHH LE) CHR (HHILE) +CHRE ( 
ALE) HEHE CHFE) HCHRE (&HFE) +CHRE (RHFE) HEHRE (HHFE) +CHRS (2 
HEE) +CHRÉE CHHFE) HCHRE (&HFO) HCHRE (HHFO) CHRE (HFD) HCHRE CH 
F@) +CHRE (&HFO) : SPRITES (12) =Af 

260 AFSCHRE (RHO) +CHRE (HHD) +CHRE (HB) HCHRE CHO) +CHRE (LHA) 
CHRE CHO) HCHRE (RHL1) CHRE (HH 1) HCHRIE (BH) HCHRE (HE) HCHRE 
LHA) HCHRE CHO) HEHE (HHD) +CHRE (AHO) HCHRE (EHD) HCHRE (RHO) 
27 AFZAECHRE CHO) HCHRE (HO) HCHRE CHA) HCHRE (2HO) HCHRE (2 
HO) CHRE RHO) HCHREE (HBO) +CHRE (HHEO) +CHRE (RHB) HCHRE (LHAG 
DACHRE (&H2O) « SPRITER CLE) =Ak 

688 AE=CHRE (RHO) HCHRE (2HO) +CHRE (HO) HCHRE (RHO) +HCHRE (HHD 
DCHRE (RHS) HCHRE (HHS) HCHRE (HI) HCHRE (BHT) HCHRE (RH1E) +CH 
R$ C&H1B) +HCHRE (HLB) HCHRE (RHO) HCHRE (HO) +CHRE (&HO) +CHRSE ( 
HO) 

290 AFZAELCHRE (BHO) HEHRE (HO) HCHRE (HO) HCHRE (HO) HCHRE (3 
HO) +CHRE (EHA) +CHRE (HAD) +CHRE (HBD) +HCHRE (HBO) HCHRE (HD 
DD) -CHRE (LHDB) +CHRE (&HLO) 2 SPRITE (14) =At 

700 REM «xx SCHERMOPROUW se 

710 LINE (1,46) (417,46) 

728 LINE (129,46)--(250,46) 

750 LINE (1,1)-(256,16),15,BF 

74@ LINE (1,176)-(256,192) ,15,BF 

750 LINE (1,1)-(16,192),15,BF 

740 LINE (243,1) -(256,192) ,15,BF 

770 PSET(146,4):COLOR S:PRINT #1,"TIJD:" 

780 PSET (156,4) :FRINT #1,"BESTE TIJD: " 

790 PSET (56,4): COLOR Ps PRINT #1, "A00" 

800 PSET (216,4) :PRINTHI,HSC 

310 PSET(62,180) :COLOR 12:PRINT #1,"SFOOK RIJDERS" 

328 COLOR 15,1,1 

858 DRAW "BMS56,4SRSU7RSDERSUPRADPRZUIREDSRZUL ARDA 

848 DRAW "RSUARSDARZUIOREDIARSUIZRADI2RAULERZDERIDIE" 
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850 DRAW "EBMIA29,46" 
840 DRAW “UISREDIERLUEREDIARZUSREDSRK4UIORAD1ORZUDREDS 


… 878 DRAW "KSUGRSDERZULOREDIORSUIZRADI RAU ER2DILERE" 


880 RESTORE 1410 
898 FOR I=1 TO 12 
900 READ A,B 
G10 FSET (A,E) 
20 NEXT I 
930 CIRCLE (210,28),8,10 
GAD PAINT (210,28),10,10 
950 CIRCLE (206,28) „8,1 
960 FAINT(206,28) ‚1,1 
970 REM %#% HOOFD-ROUTINE #%% 
980 FOR DEL=1 TO 50D:NEXT DEL 
990 FSET(40,150):FRINT #1,"druk op de spatietoets” 
1000 IF STRIG(O)=0 THEN 1000 
1010 LINE(40,150)-(220,140) ‚1,EF 
1020 SOUND 1,15:SOUND 7,8:S0UND 8,15 
1050 ON SFRITE GOSUB 1410 
1040 SPRITE ON 
1050 1=0 
1060 LA=118:RE=118 
1070 C=RND (-T IME) #2 
1080 PA=13 
1090 IF I=12 THEN 1=0 
1108 LINE (54,4) -(90,12) ,10,BF 
1110 PSET (54,4):PRINT #1,TEL 
1120 I=1+2 
1120 REM #*x* BEWEGING/RENBAAN s% 
1140 PUT SPRITE 1, (112-1#.5,39+I%1. 1) ‚R‚8 
1150 PUT SPRITE &, (124+1%.5,44+I#1. 1) ‚R‚3 
1140 PUT SPRITE 2, (100-I*.6,62+1%1.4) ‚R‚9 
1170 FUT SPRITE 7, (134+1%.5,6b+I%1.4) ‚R‚4 
1180 FUT SPRITE 2, (88-1*.9,88+1*1.7) ‚R‚10 
1190 PUT SPRITE 8, (142+1%.7,92+ 11.7) ‚R‚5 
1200 FUT SPRITE 4, (76-1%1.3,114+1#2.1) ‚R‚11 
1210 PUT SPRITE 9, (150+1#.9,118+1#2. 1) ‚R‚6 
1220 PUT SPRITE 5, (62-1#1.8,144+1#2.6) ‚R‚12 
1250 FUT SPRITE 10, (140+1%*1,148+1%2.6) ‚R‚7 
1240 TEL=TEL+1 
1250 REM #%% BEW. /SPOOKRIJDERS #x% 
1240 SWAP S,J 
1278 VeV4+7 1 LA (LA-C) 2: RE= (RB+C) 
1280 PUT SPRITE 16, (LA-8,V+12) ‚R‚PA 
1290 PUT SPRITE 17, (RB-8,V) ‚R‚PA 
1300 IF VS100 THEN 1320 ELSE PUT SPRITE 18, ((LA+26) „V-16 
(10E) ) „K, PA 
1510 REM *%% VERPLAATS EIGEN WAGEN xx 
1320 D=STICK (0) 
1330 IF D=7 THEN X=X-3 ELSE IF D=Z THEN X=X+3 
1340 YeV+0 
1350 IF YS120 OR Y>140 THEN SWAP O,F 
1360 PUT SPRITE 0, (X-8,Y) ,7,15 
1370 IF V:80 THEN FA=14 
1580 IF V-100 THEN FA=@ 
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1390 IF V-212 THEN V=50:G0T0 1950 ELSE 1090 

1400 REM #** BOTSING 3% 

1410 SFRITE OFF 

1424 PUT SPRITE B, (X,V) „9,2 

14550 FOR DEL=1 TO S0O:NEXT DEL 

1448 PUT SPRITE @, (X,Y),9,1 

1450 FOR 5=0 TO 42:S0OUND @,@: SOUND 1,0: SOUND 2,0: 50UND 7 
‚2:SOUND 4,2: SOUND 5,0: SOUND 4,15: SOUND 7,5 

1468 SOUND 9,14:SOUND 10,16:S0OUND 11,@:S0OUND 12,10: SOUND 
15,0::FOR X=14 TO @ STEF —.@1:5OUND B,X:NEXT X 

1473 IF HSC>TEL THEN 1510 

1480 HSC=TEL. 

1490 LINE (216,4)-(250,12) ,10,EBF 

15004 PSET (214,4) :PRINT#1 ,HSC 

1514 PUT SPRITE @, (120,14) ,7,15 

1520 PUT SPRITE 16,(1,192),7, 15 

1550 FUT SPRITE 17, (38,192),7,15 

13540 PUT SPRITE 18, (48,192),7,15 

1550 SOUND &,6:S0OUND 7,0:S0OUND 8,0: SOUND 9,8: SOUND 19,0: 

SOUND 11,2:SOUND 12,0:S0UND 17,0 

1540 SOUND 12,0:50UND 115,0 

157@ FOR DEL=1 TO SOB: NEXT DEL. 

1580 GOTO 590 

1590 REM ##** DATA STERREN 2% 

1600 REM #* 1/GDB/B5 HN 

1618 DATA 12,20,352,24,48,24,68,28,88,18,112,20,1:30, 22,14 

8,22,172,26,184,22,192,20,222,50 


Voorbeeld 


BESTE RIA D: 0 


SPOOK RIJDERS 
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4.5 Astro 


Ergens ver weg in het heelal zweeft een planeet 'Tarticum' genaamd, omgeven door 
een vreemde dichte nevel. Op deze planeet bevindt zich een kolonie mijnwerkers op 
zoek naar het kostbare 'Tartaciet', een gesteente dat nodig is voor de produktie van 
‘Taborinezuur’ dat op zijn beurt gebruikt wordt als brandstof voor de interplanetaire 
ruimtevloot. Dat taborinezuur is een zeer krachtig goedje dat de ruimtependels in 
staat stelt om enorme afstanden te overbruggen in zeer korte tijd met een minimum 
aan verbruik, maar het kan ook gebruikt worden voor de produktie van de zeer krach- 
tige TABORINEBOM die een hele planeet in één keer kan verwoesten. Je begrijpt, 
dat de Druoden, het agressieve volkje van de buurplaneet Druon, op de loer liggen. 
Met je tweepersoons ruimtevaartuig maak je deel uit van een reddingsteam dat de 
zes mensen op Tarticum een voor een moet afhalen en overbrengen naar het moe- 
derschip, zonder daarbij door een Druode-tuig geraakt te worden. Pas op, want het 
is helemaal geen gemakkelijke opdracht en de Druoden worden alsmaar agressie- 
ver. Je hebt de keuze tussen vijf moeilijkheidsgraden. 

Merk op dat in dit spel een groot aantal sprites wordt gebruikt zonder dat de snelheid 
van het spel, volledig in BASIC geschreven, te veel wordt beïnvloed. 


Programma 


190 REM #H HHN NH IE HH 

119 REM s** ASTRO %%% 

120 REM %% HH INI DEDEHE 

150 SCREEN @ 

140 WIDTH 28 

158 CLS 

1468 COLOR 19,12,0 

178 KEY OFF 

188 PLAY "T200V13CDEFGFEDCDEFG" 

198 PRINT "sxe A S TR OD Huren! 
208: PRENT “aarsatrtatenunmseneens en 
218 PRINT 

220 PRINT "Je hebt je brevet behaald" 
238 PRINT "van <STARSHIP-COMMANDERZ'" 
240 PRINT “en je moet een kolonie gaan” 
250 PRINT "redden ergens in het verre" 
260 PRINT "melkwegstelsel. 

270 FRINT "Deze kolonie <TARTICUM?" 
289 FRINT "genaamd, is omgeven door" 
290 FRINT "vijandelijke ufo's..." 

300 PRINT "Zul je je taak aankunnen?" 
318 PRINT "Je beschikt over een vloot" 
320 PRINT "van 5 ruimtependels" 

33Q PRINT "en de besturing doe je" 

340 PRINT "met de cursortoetsen" 

35@ PRINT "Probeer alle mensen te" 

360 PRINT "redden door ze op te halen" 
37Q PRINT “en terug te brengen naar" 
380 PRINT "de thuisbasis zonder de" 
398 PRINT "ufo's te raken. Er zijn 6" 
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408 PRINT “mensen en de vijand wordt" 
418 PRINT "steeds gevaarlijker." 

420 K$=INKEY$ 

450 IF K$="" THEN 420 

440 CLS 

45@ COLOR 15,1,4 

460 REM ss MOEILIJKHEIDSGRAAD #%% 
478 INPUT "vliegsnelheid:1i tot 5";A 
488 IF A=@ OR A>5 THEN 470 ELSE V=A 


518 REM #*#* VARIABELEN #% 
520 SP=it:LV=5 

530 GR=0:0=51P=6 

540 N=1:M=2:CT=@ 

550 1=40:MO=0 

56 REM #*#* SPRITES-DEF * 

570 SPRITES (1) =CHR$ (&H3C) +CHRE (4H42) +CHRE (&H9G) +CHRÉ (&H 
99) +CHRE (HEF) +CHRE (&HAA) +CHRE (RHFF) +CHRS (BH66) 

580 SPRITES (2) =CHR$ (&H3C) +CHRE (&H42) +CHRS$ (&HE7) +CHRÉ (&H 
E7) +CHR$ (&HFF) +CHRE (&HS5) +CHRE (&HFF) +CHRS (&H66) 

590 SPRITE (5) =CHR$ (&H7E) +CHR$ (&HDB) +CHR$ (&HFF) +CHRÉ (&H 
66) +CHR$ (HI) +CHRE (&HE7) +CHRS (&HCE) +CHRS (H66) 

690 SPRITES (46) =CHR$ (&H7E) +CHR$ (&HBD) +CHRÉ (&HFF) +CHRÉ (&H 
7E) +CHR$ (&H42) +CHR$ (&H7E) +CHR$ (&H66) +CHR$ (HZC) 

610 SPRITES (7) =CHR$ (&HB) +CHRS (HO) +CHRE (&H18) +CHRÉ (&HZC 
) +CHRE (&H3C) +CHRS (4H18) HCHRS (3HB) +CHRS (&HO) 

420 SPRITES (8) =CHR$ (&HB) +CHRE (&H2) +CHRS (HSB) +CHR$ (&H14 
) +CHR$ (&H28) +CHR$ (&HA) +CHRS (&H20) +CHRE (HO) 

6308 SPRITES (9) =CHR$ (&HB) +CHRE (&H22) +HCHR$ (&HB) +CHRÉ (HBA 
) +CHRS (&H1) +CHRÉ (&H20) +CHRÉ (HZ) +CHRE (4HIO) 

648 SPRITES (10) =CHR$ (&H24) +CHR$ (&2HB) +CHRÉ (&HB 1) +CHRE (%H 
B) +CHRÉ (&HD) +CHRE (&2HBO) +CHRE (&H1) +HCHRE (HZ) 

658 REM #*#* SCHERM-OFBOUW xx 

460 OPEN "GRF:" FOR OUTFUT AS #1 

678 PSET (16,1):PRINT #&1,"GERED: " 

680 PSET (88,1) :PRINT #1, "*#ASTROR#" 

690 PSET (180,1) :PRINT #1,"LEVENS: " 

700 LINE(9,8)-(248,184) ‚B 

718 LINE(8B,96)-(32,104) , „BF 

720 LINE(B,104)-(16,112) , „EF 

730 LINE(232,72)-(248,80) , „BF 

740 LINE(232,98)-(248,112) , „BF 

750 LINE(240,113) -(248,120) , ‚BF 

760 FSET (240,82):PRINT #1,"®" 

770 PSET (240,9B):PRINT #1,"8" 

788 PUT SPRITE 1, (X,Y),13,N 

790 REM *** TELLERS/SET ##% 

808 PSET (56,1):PRINT #1,CT 

810 PSET (228,1) :PRINT #1,LV 

820 REM #*#* SPRITE 1/POSITIE « 

838 X=16:Y=80 

848 FUT SPRITE 1,(X,Y) ‚SN 

858 PSET (32,60) :PRINT #1,"DRUK OP DE SPATIETOETS" 

840 REM #*#* HOOFDLUS ##x 


87@ IF STRIG(G)=0 THEN 870 

883 BEEF 

890 LINE(52,60) -(220,48) ,1,BF 

908 ON INTERVAL=8 GOSUB 1070 

918 INTERVAL ON 

920 ON SPRITE GOSUB 1590 

950 SPRITE ON 

948 D=ESTICK (DO) 

958 SWAF N‚M 

960 SOUND 18,25:SOUND 10,15:SOUND 9,50 
970 REM xx VERPLAATSING/SPRITE-1 #xx 
988 IF D= THEN Xe=X+V 

93 IF D=7 THEN X=X-V 

1008 IF D=i THEN Y=Y-V-1 ELSE Y=Y+ (Ve, 5) 
1810 IF GR=1 THEN 10350 

1820 IF X>240 OR X<4 OR Y>188 OR Y<8 THEN GOSUB 1230 EL 
SE IF X>224 AND Y>78 AND Y<82 THEN GOSUR 1270 ELSE 1040 
1858 IF X>248 OR X£4 OR Y>18@ OR Y<8 THEN GOSUB 1230 EL 
SE IF X<24 AND Y>8@ AND Y<82 THEN GOSUB 1540 
1048 PUT SPRITE 1,(X,Y) ,S‚N 

1054 GOTO 940 

19460 REM xx SPRITES-MOTION sx 

1070 SP=(SP+V) +MO 

1080 IF SF>180 THEN 1090 ELSE 1130 
1890 INTERVAL OFF 

118% G=INT (RND(-TIME) #30) 

1110 I=G+56 

1120 SP=1 

1150 SWAP O,P 

1148 INTERVAL ON 

1158 PUT SPRITE 2, (I,SP),8,0 

1168 PUT SPRITE 3, (1+48,SF+20) ,3,P 
117Q PUT SPRITE 4, (1+88,SF-20) ‚19,0 
1188 PUT SPRITE 5, (1I+112,SP+355) ,13,P 
1190 PUT SPRITE &, (I+140,SP+10) , 12,0 
1200 PUT SPRITE 7, (1I+32,SP-1-35) ,4,P 
1218 RETURN 

1220 REM sx BUITEN-SCHERM #34 

1230 BEEP: BEEP: BEEF 

1240 INTERVAL ON 

125@ RETURN 

1268 REM 2% OPFHALEN-MENS ds 

1270 SPRITE OFF 

1280 FOR SND=15 TO @ STEP —.35 

1290 SOUND 8,SND 

1508 NEXT SND 

1518 LINE (256,80) - (248,98) , „EF 

1520 GR=1 

1558 SPRITE ON 

1548 RETURN 

1350 REM #*x AFLEVEREN-MENS #4 

15460 SPRITE OFF 

1578 FOR SND=15 TO @ STEP —. 45 

1580 SOUND 8,SND 

1598 NEXT SND 
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1408 LINE (236,80)-(248,98) ,4,BF 
1410 PSET (240,82):PRINT #1,"B" 
1420 PSET (240,90) :PRINT #1,"E" 
1430 BEEP: BEEP 

1440 GR=@ 

1450 MO=MO+2 

1468 IF MOX1@ THEN SP=15 

1478 CT=CT+1 

1480 IF CT=& THEN 1880 

1490 FOR VP=@ TO 8 

1500 FOR HP=60 TO 76 

1510 PRESET (HP,VP) 

1520 NEXT HP 

1538 NEXT VP 

1548 PSET (56,1):PRINT #1,CT 
1558 FOR DEL=1 TO 300:NEXT DEL 
1560 SPRITE ON 

1578 RETURN 

1588 REM #** BOTSING + 

1598 INTERVAL OFF 

1600 SPRITE OFF 

1618 PUT SPRITE 1, (X,Y),5,7 

1620 FOR DEL=1 TO 5@:NEXT DEL 
1630 PUT SPRITE 1, (X,Y),5,8 

1640 FOR DEL=1 TO S@:NEXT DEL 
1658 PUT SPRITE 1,(X,Y),5,9 

1660 FOR DEL=1 TO 5@:NEXT DEL 
1670 PUT SPRITE 1, (X,Y),5,10 
1680 FOR SND=@ TO 63: SO0UND @,2: SOUND 1,8: SOUND 2,@: SOUN 
D 3,0:SOUND 4,0:S0UND 5,@:SOUND &,15:SOUND 7,3 
1690 SOUND 9,16:SOUND 18,16:S0UND 11,@:SOUND 12,18: SOUN 
D 135,0::FOR PLA=16 TO @ STEP —.85:SOUND 8,PLN:NEXT PLN 
1700 IF GR=1 THEN 1710 ELSE 1760 
1710 GR=0 

1720 LINE (236,80) -(248,98) ,4,BF 
1730 PSET (240,82):PRINT #1,"$" 
1740 PSET (240,90) :PRINT #1,"&" 
1750 BEEP: BEEP 

1760 Lv=LV-1 

1770 IF LV=-1 THEN 2100 

1780 FOR VP=0 TO 10 

1790 FOR HP=228 TO 244 

1800 PRESET (HP,‚VP) 

1810 NEXT HP 

1820 NEXT VP 

1830 X=16:Y=80 

1840 PUT SPRITE 1, (X,Y),S‚N 

1850 SP=SP-MO 

18460 PSET (228,1) :PRINT #1,LV 
1870 GOTO 850 

1880 REM ##* GEWONNEN sx 

1890 SPRITE OFF 

1988 INTERVAL OFF 

1910 FOR I=1 TO 10 

1920 PUT SPRITE 1,(256,192),8,1 
1930 NEXT I 
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1948 CLS 

1950 PSET (8@,10):PRINT #1, "BRAVO!!!" 

1960 PSET (8,40):PRINT #1,"U hebt de mensheid van de" 
1970 PSET (8,50):FRINT #1, "ondergang gered." 

1988 PSET (8,460) :FRINT #1,"Alle overlevenden zijn nu” 
1990 PSET (8,70) :FRINT #1,"verplaatst naar hun nieuwe" 
2000 PSET (8,80) :PRINT #1, "woon-planeet waar een nieuwe" 
2010 PSET (8,90) :PRINT #1,"toekomst voor hen openligt. 
2020 PSET (8,110):PRINT #1,"Dank zij uw moed en inzet" 
2050 PSET (8,120):PRINT #1,"krijgt U de hoogste" 

2040 PSET (8,120):PRINT #1,"onderscheiding van de" 

2050 PSET (8,140) :PRINT #1, "interplanetaire gemeenschap!" 
20460 FOR DEL=1 TO 90AD: NEXT DEL 

2070 END 


Opmerking: 

Het grafische karakter in de regels 760 en 1730 verkrijgt u door de 'GRPH'-toets 
ingedrukt te houden en de '[-toets in te drukken. 

Het grafische karakter in de regels 770 en 1740 verkrijgt u ook met de 'GRPH'-toets 
en de ','-toets. 


Voorbeeld 
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4.6 Joopie Stuntman 


Joopie Stuntman is gek op motorrijden en daarom heeft hij zich aangesloten bij de 
plaatselijke motorsportclub. Omdat hij nogal hoogmoedig is, heeft Joopie een wed- 
denschap afgesloten met enkele van zijn vrienden. Hij zal proberen om met zijn mo- 
tor over acht tonnetjes te springen en daarbij is zijn aanloopsnelheid zeer belangrijk. 
Kun je hem helpen? 

Geef hem een kans door met de twee cursortoetsen zijn rijsnelheid te bepalen. 
Rechtse cursortoets: blijven induwen versnelt de beweging van de motor. 

Linkse cursortoets: vertraagt de motor. 

Er zijn in totaal acht beurten, beginnende met de sprong over één tonnetje, tot de 
supersprong over acht tonnetjes. Na afloop krijg je de score te zien. 


Programma 


19 REM MHM HMH IH HH HH IH HH HH HE HI 


110 REM #%** JOOFIE STIJNTMAN #i% 
120 REM #4 HMH HH HH HH HN IH HI HH HH 


158 CLS:COLOR 15,4,4: SCREEN OG: WIDTH 27 


148 REM HMI HE IE IEI IMI HIHI HH HMI HI HH IE HH 
158 PRINT "#xser joopie stuntman #%%x!' 
1468 REM HENIN II HH HH HH MIN H HMMM INI HH HH HH 
1838 REM HEIEN DMH MH IMM HI HHM IH MHI HH HIE HH 
198 PRINT 


209 PRINT "JE bent nu in het stuntteam" 

218 PRINT "van de cross=-club." 

220 FRINT “Probeer over de tonnetjes heen! 
220 PRINT "te springen met je KAWASAKI." 

240 FRINT "Met de linkse- en rechtse cursor—'" 
250 PRINT "toetsen kun je de aanloopsnelheid" 
268 PRINT "verhogen of verlagen" 

27@ PRINT "De bedoeling is dat je precies," 
280 PRINT "op het <MATJE: terecht komt!" 

298 FRINT "Je hebt ‘8’ beurten." 


210 PRINT "druk op een toetst: ' 

520 K&$=INKEYS 

330 IF Kz" THEN 52 

540 SCREEN 2,2 

550 KEY OFF 

540 CLS 

270 OPEN "arp:'" FOR OUTFUT AS #1 

5830 REM #** VARIABELEN %%% 

390 LD :H=ED: 1D: Azie Ber 

400 LG=3@ :CNT=O 

410 REM #xx SFRITES/DEF «xx 

420 AS=CHRE (&HO) HCHRE (HO) HCHRE (RHO) HCHRE (HO) +CHRE (HH 
)CHRE (&H7) +CHRE (&HE) +CHRE (HHIF) HCHRE (RHSF) +CHRE (&H7E) + 
CHRÉ (&H56) +CHRE (SHSA) +CHRE (HHC6) +CHRE (4HBF) +CHRE (4H6B) + 
CHR (2H:50) 

A50 AFZAECHRE (HHD) +HCHRE (&HO) +CHRE (&H7D) HCHRE (HHFB) +CHR 
& (BHD) +CHRE (HFD) HCHRE (HHBC) HCHRE (2HB7) +CHRE (HHFF) +CHR 
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$ (&HEZS) +CHRS (&HCD) +CHR$ (&HD6) +CHR$ (&H7 1) +CHR$ (&HEZ) +CHR 
E(&HLA) +CHRE (RHC) : SPRITES (1) =Af 

440 A$=CHRE (&HD) +CHR$ (&HD) +CHR$ (&HD) +CHRS (&HO) +CHRE (HE 
) +CHR$ (H7) +CHRÉ (&HF) HCHR$ (&H1F) +CHRS (BHSF) +CHRS (&H7E) + 
CHRÉ (&H36) +HCHRE (&H6A) +HCHRE (XHBE) HCHRS (&HC7) HCHRS (&HSO) + 
CHRÉ (#HZ0) 

450 A$=A$+CHR$ (&HD) +CHRS (&HD) +CHRÉ (&H7D) +CHREÉ (&HFB) +CHR 
$ (&HDO) +CHR$ (HFD) +CHR$ (HHEC) +CHR$ (&HB7) +CHRÉ (&HFF) +CHR 
$(&HE3) +CHRÉ (&HCC) +CHRS (HDA) +CHRS (&H63) +CHRS (&HF 1) +CHR 
$(&H16) +CHRS (&HC) : SPRITE (2) =A$ 

468 A$=CHRE (&HD) +CHRS (&HO) +CHRÉ (HD) +CHRS (&HB) +CHREÉ (&HD 
) +CHRÉ (HO) +CHRE (RHO) HCHRE (HE) +CHRE (&H10) +CHRE (&H20) +C 
HRE (&HFO) +CHR$ (&HIF) +CHR$ (HHS) +CHR$ (&H7F) +CHR$ (&HZC) +C 
HRE (&HZC) 

A78 A$=A$+CHRE(&HD) +CHR$ (&HD) +CHRE (&HB) +HCHRE (&HB) +CHRÉ ( 
HO) +CHRÉ (&HO) +CHRE (RHO) +CHRE (&HFO) HCHRS (HB) +CHRE (&H4) 
+CHR$ (HF) +CHR$ (&HFS) +CHRE (&HAS) HCHRE (HHFE) +CHRS (HSC) + 
CHR (&H3C) : SPRITES (3) =A$ 

488 A$=CHRE (&HD) +CHR$ (&HB) +CHRS (HD) +CHRS (&HB) +CHRE (HI 
) +CHRÉ (HE) +CHRÉ (&H7) +CHRE (HB) +CHRE (RH3F) +CHRÉ (&HFF) +C 
HRE (&HBF) +CHRE (&H77) +CHRÉ (&HDA) +CHRE (&HBB) +CHR$ (HDE) +C 
HRE (4H70) 

A90 A$=AE+CHRE (&H70) +CHRE (&HCB) +CHRE (&HFO) +CHRS$ (&HEE) +C 
HRS (&HBZ) +CHR$ (&HFC) +CHR$ (RHEG) +CHR$ (&HSB) +CHR$ (&HS1) +C 
HR$ (&HZE) +CHRÉ (&HBE) +CHR$ (&HD) +CHRS (HB) +CHR$ (HHD) +CHRS 
(HO) +CHRÉ (4HO) : SPRITES (4) =A$ 

500 A$=CHRE (HEF) +CHRE (&HFE) +CHRS (HEF) +CHR$ (&HEF) +CHRS 
(HFF) +CHRÉ (HEF) +HCHR$ (HEF) +HCHR$ (HEF) +HCHR$ (HEF) +CHRÉ 
(HEF) +CHR$ (HEF) +CHR$ (&HFF) +CHR$ (&HFF) +CHR$ (&HFF) +CHRE 
(HEF) +CHR$ (HEF) 

518 A$=A$+CHRE(&HEF) +CHRE (&HFF) +CHR$ (&HFF) +CHR$ (&HFF) +C 
HRE (&HFF) +CHR$ (&HEF) +CHRÉ (&HFF) +CHR$ (ZHFF) +CHR$ (HHFF) +C 
HRS (&HFF) +CHRÉ (&HFF) +CHR$ (&HFF) +CHR$ (&HFF) +CHR$ (&HFF) +C 
HRS (&HEF) +CHR$ (&HFF) : SPRITES (5) =Af 

520 A$=CHR$(&H1D) +HCHRE (BH19) +CHRS (&H16) HCHRE (&H1O) HCHRS 
(HZI) +CHRE (RHC) HCHRÉ (HAA) HCHRE (&H44) +CHRS (HA) HCHRE 
(HAD) +HCHRE (&HBO) HCHRE (&HCO) +CHRS (&H31) HCHRS (BHA) +CHRS ( 
&H4) +CHR$ (HO) 

538 A$=A$+CHRE (&HB4) +CHR$ (&H7B) +CHRS$ (&HB) +CHR$ (&HB) +CHR 
£ (&HB) +CHR$ (HCA) +CHRE (&H24) HCHRE (&H22) HCHRS (HHA 1) HCHRE 
(&HBZ) +CHRE (&H4) +CHRÉ (RHE4) +CHRE (&H1 4) +CHRS (&HB) +CHRE (3 
HO) +CHR$ (&HO) : SPRITES (4) =At 

540 SCREEN (2) 

550 REM #*# SCHERMOPBOUW # 

568 COLOR 13,0,7 

578 LINE (@,68)-(256,64) ,&,BF 

580 LINE (@,124)-(256,128) ,&,BF 

590 LINE (@,188)-(256,192) ,4,BF 

608 LINE (24,192)-(64,172) 

618 LINE (24,192)-(64,192) 

620 LINE (64,172)-(64,192) 

630 FAINT (5@,180) 

GAD REM #** HOOFDLUS #*+# 

658 PUT SPRITE 1, (16,45) ,1,1 

660 FUT SPRITE 3, (252,43) ,7,5 
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678 PUT SPRITE 4,(252,107) ,7,5 
488 CIRCLE (LG,180),8,3,,,1.4 

698 PAINT (LG,180) ,3,3 

708 PUT SPRITE 2, (LG+30,186) „10,5 
718 ON INTERVAL=3 GOSUB 800 

720 ON SPRITE GOSUB 850 

738 INTERVAL ON 

748 SPRITE ON 

758 SOUND 18,15:SOUND 5,175:SO0UND 8,1 
768 D=STICK(O) 

770 IF D=3 THEN I=1+.05 :GOSUB 820 
780 IF D=7 THEN I=I-.05 :GOSUB 820 
798 GOTO 760 

808 REM #4 SFRITE/MOTION #4 

810 L=l+I 

820 SWAP A‚B 

830 PUT SPRITE 1, (16+L,43+H) ,1,B 
848 RETURN 

850 REM #*# NIVEAU «a 

86@ SPRITE OFF 

878 H=H+64 

880 IF H=128 THEN GOSUEB 930 

898 FOR DEL=1 TO 700:NEXT DEL 

900 SPRITE ON 

918 GOTO 760 

920 PUT SPRITE 2,(48,172),10,3 

930 REM #4 SPRONG «+ 

948 INTERVAL OFF 

950 SPRITE OFF 

68 X=0:Y=192 

970 A=1:B=2 

980 FOR UP=1 TO 1412 

998 X=X+2 

1080 Y=Y-A 

1910 SWAP A‚B 

1828 PUT SPRITE 1, (X,Y),1,4 

1030 NEXT UP 

1040 FOR UP=1 TO 25 
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1050 
1060 
1970 
1080 
1090 
1100 
1118 
1120 
11350 
1140 
1150 
1160 
1170 
1188 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
12808 
1290 
1500 
1518 
1520 
1550 
1540 
1350 
1560 
1570 
1280 
1590 
1400 
1410 
1420 
1450 
1440 
1450 


X=X+1 

PUT SPRITE 1, ,V) „1,4 
NEXT UP 

ON SPRITE GOSUB 1490 
SPRITE ON 

FOR DN=1 TO I+#10 

X=X+1 

Y=Y+A 

SWAP A‚B 

PUT SPRITE 1, C%sY)sis4 
NEXT DN 

IF X<LG+20 THEN 1430 
IF X>LG+42 THEN 1450 
SPRITE OFF 

ON INTERVAL=2 GOSUB 1250 


INTERVAL ON 

A=0: B=4 

FOR DEL=1 TO 8BOO:NEXT DEL 
X=X+I 

A=A+1 

IF A=15 THEN B=1 


IF A=5@ THEN 1300 

PUT SPRITE 1,(X,172),1,B 
RETURN 

REM #4 NIEUWE SPRONG #%x 
INTERVAL OFF 

SPRITE OFF 

CNT=CNT +1 

IF CNT=7 THEN 14620 

LG=LG+20 

REM #4 HEROPSTARTEN/SPRONG #4 
PUT SPRITE 1,(16,43) ‚1,1 
L=0:H=0: 1=0: A=: B=2 

CIRCLE (LG,188),8,3,,,1.4 

FAINT (LG,180),3,3 

PUT SPRITE 2, (LG+358,188) ‚18,5 
FOR DEL=1 TO 300:NEXT DEL 

GOTO 710 

REMxxx CRASH sax 

PUT SPRITE 1, (X,Y),13,6& 

FOR SND=1i TO 64: SOUND @,@: SOUND 1,2: SOUND 2,8: SOUN 


D 5,0:SOUND 4,0:S0UND 5,0:SOUND &,15:SOUND 7,3 
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B iS, 


1470 
1480 
1490 
1500 
1510 


D 13, 


1520 
1550 
1540 
1550 
1560 


SOUND 9,14:SO0UND 10,16:SOUND 11,@:S0UND 12,10: SOUN 
::FOR SND=16 TO @ STEP —.@5:SOUND 8,SND:NEXT SND 

BEEP 

GOTO 1300 

REM sx GOEDE SPRONG 4% 

INTERVAL OFF 

SOUND 9,16:S0UND 1@,16:SO0UND 11,8:SOUND 12,12: SOUN 
::FOR SND=16 TO @ STEP —.@5:S0UND 8,SND 

X=X+1 

PUT SPRITE 1, (X,172),1,4 

NEXT SND 

BEEP 

REM «xe TELLER/SET ex 


1570 
1580 
1590 
160% 
14610 
1620 
1658 
1640 
1650 
1660 
1670 


TL=TL+1 

GOTO 1190 

REM #%*x* 1/GDB/85 Hi 

REM sx EINDE/SCORE #%% 

CLS 

PSET (12,20):PRINT #1,"JE HEBT " 
PSET (76,20):PRINT #1,TL 

PSET (128,20):PRINT #1,"goede sprong(ten)" 
FOR DEL=1 TO 1200:NEXT DEL 
COLOR 15,4,4 

END 
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4.7 Piet Piloot 


Ditmaal ben je in het luchtruim met de opdracht luchtfoto's te nemen van vijandelijk 
gebied, vanuit de cockpit van je starfighter. 

Omdat deze opdracht van zeer lange duur kan zijn, wordt je gevraagd doorlopend te 
fotograferen zonder te landen, want de nieuwe stafkaarten moeten tijdig klaar zijn. 
Er dreigt namelijk een oorlog met het buurland en dan willen je opdrachtgevers, de 
overheid, over alle gegevens beschikken om het vijandelijk gebied te betreden. Tot 
overmaat van ramp werd je vliegtuig beschoten door vijandelijk luchtafweergeschut 
en verliest het brandstof. Maar gelukkig stuurt het opperbevel een tankvliegtuig zo- 
dat je kerosine kunt tanken tijdens de vlucht. 

Om bij te vullen, moet je proberen om met de neus van je straaljager het eind van de 
brandstoftank te raken. Pas op want het is heel precies. Eenmaal vastgekoppeld, 
wordt je brandstoftank bijgevuld. Maar nog meer pech komt je achtervolgen. Na 
iedere tankbeurt blijkt het lek in je tank groter te zijn geworden, zodat de kostbare 
vloeistof nog sneller wegstroomt en je verplicht bent vaker bij te tanken. 

Elke tankbeurt wordt genoteerd en er is een aanduiding van de brandstofvoorraad. 
Suggestie: gebruik dit programma als onderdeel van een groter spelprogramma, 
waarin het als ‘subroutine’ verwerkt wordt. 


Programma 


100 REM HEN HM HN HHN M MK KHN HMH HH H 

118 REM “VL IEGTUIG-TANKEN%% 

120 REM HMMM HKH HMM H MM MM HHN NHN IH 

138 CLS :KEY OFF 

148 COLOR 10,4,7 

150 SCREEN @:WIDTH (40) 

148 RESTORE 1400 

170 PRINT ''NMMH IM HHM IH HIHI HMH IHM III HH IMI HH HH! 
18@ FOR I=i TO 21 

190 PRINT «Gd 
200 NEXT I 

210 PRINT 't MHM M NH HIHI HH HHM IEM IEI HIE KIEK IEI IH HH HIHI HH! 
220 LOCATE 4,4 

250 PRINT "sxe IETJE-VLIEGTUIGPILOOT se! 

240 FOR I=i TO 51 

250 READ A‚B,C# 

260 LOCATE A‚,E 

270 FRINT C&$ 

280 FOR DEL=1 TO OO: NEXT DEL 

20 LOCATE A‚,B 

200 PRINT "WEE 

318 IF STRIG(@)=-1 THEN 530 

520 NEXT I 

358 COLOR 15,7,1:SCREEN 2,2 

340 OPEN "GRP: "FOR OUTFUT AS #1 

550 REM xx VARIABELEN xs 

348 HG=170:FE=16: T=0: X=80: Y=40 

378 TEL=@:ST=10:L=50:H=100: V=2. 5 

3830 REM #x KARAKTERS 2x 
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390 AF=CHRE (LHB) HCHRE (&HFO) +CHRE (LHEB) +CHRE (HFC) +CHRS (% 
HEE) +CHRÉ (&H7F) +CHRÉ (&2H7E) HCHRÉ (2HEE) +CHRE (HEE) HCHRÉ (HH 
LF) +CHRE (&HE) HCHRE (HHA) +CHRE (HB) HCHRÉ (&H1O) HCHRE (4H2O) + 
CHRÉ (&HCO) 

400 A$ZAE+CHRE (HO) +CHRE (HO) +CHRE (RHO) +CHRE (RHB) +CHRE (% 
HI) +CHRE(BHEF) +CHRÉ (BHEF) +CHRÉ (RHDS) +CHRSÉ (HEF) +CHRE (&HF 
F) +CHRÉ (HEB) +CHRÉ (&H7E) +CHRE (XHLF) : SPRITE (1) =A$ 

410 AR=CHRE(&HO) +CHRE (HO) +CHRE (RHLF) HCHRE (&H7F) +CHRE (&H 
FE) +CHRÉ (&HEF) +CHRÉ (&HEF) +CHRÉ (HSE) +CHEE (RHEF) +CHRE (2HF 
F) +CHR$ (HO) HCHRE (RHFE) HCHRE (BHFC) +CHRE (HO) +CHRE (HO) +C 
HRE (HO) 

42D AFZAEHCHRE (&HO) +CHRE (HO) +CHRE (HHBD) +CHRE (&HCB) +CHRE 
(&HAO) +CHRE (&HEC) +CHRE (BHEE) HCHRE (HHEF) +CHRSE (&HEF) +CHRÉ ( 
HHFE) +CHRE (HZC) +CHRE (HED) 1 SERITES (2) =Af 

450 AF=CHRE (&HO) HCHRE (HO) +CHRE (RHO) HCHRE (HO) HCHRE (XHCO 
) +CHRE (HAD) +CHRE (RHSF) +CHRE (RH2E) +CHRÊ (&HZE) +CHRE (RH LF) 
+CHRE (HO) +CHRÉ (BHO) +CHRE (HO) +CHRE (&HO) +CHRE (RHO) HCHRE ( 
HO) 

440 AEZAECHRE (&HO) +CHRE (RHO) HCHRE (HD) +HCHRE (HHD) +CHRE (% 
HO) +CHRÉ (UH7B) HCHRE (&HE6) HCHRE (BHEE) +CHRE (HEE) +CHRE UHF 
3) : SPRITES (0) =At 

450 AF=CHRE(&HD) +CHRE (HE) +CHRE (BHE) +CHRE (RH1F) +CHRE (HZ 
EF) +CHRÉ (2H7E) +HCHRE (HEE) HCHRE (HEE) +HCHRE (HEF) +CHRE (&H7E 
) +CHRE G2HZE) +CHRE (&HZE) +CHRE GRHIE) +CHRE (HZ) +CHRÉE (HHD) +C 
HRE (HO) 

46D AEZAEHCHRE (HO) +CHRE (HHEO) +HCHRE (XHEEB) HCHRE (BHFE) +CHR 
&CBHEE) +CHRE (BHEF) +CHRE (BHEE) +CHRE (RHEE) +CHRÉ (HEF) +CHRE 
C&HEE) +CHRE (RHEE) +CHRE (&HEC) +CHRE (2HEB) +CHRÉ (&HCD) 2 SPRIT 
EE CE) =At 

470 AE=CHRE (HO) +CHRE (HD) +CHRE (LHB) HCHRE (HHD) +CHRE (HHS) 
+CHRE (BHA) +CHRE (UHE) HCHRE (&HA) +CHRE (HHS) +CHRÉ (HH2) HCHREE ( 
LHS) +CHRE (LHB) HCHRE (HO) HCHRE (RHO) +CHRE (RHO) +CHRE (LH) 
480 AFZAEHCHRE (HO) +CHRE (RHO) +CHRE (BHO) HCHRE (HO) +CHRE (CH 
HLO) +CHRÉ (HAD) +CHEE CRH4D) +CHEE CRHAO) +CHRE HEID) +CHEE CRH 
CO) +CHRE (2H2O) +CHRE (RHID) 2 SPRITE (4) =AE 

49B AE=CHRE (HED) HCHRE (HHA 1) HCHRE (&H20) HCHRE (BH 1) CHE ( 
HB) HCHRE (HHS) +CHRE (BHO) +CHRE (UHSE) +CHRE (HHAA) HCHRE (HI) 
HCHRE C&HA) +CHRE (HI) +CHRE (RHLO) HCHRE (RHEI) HCHRE (3H40) HCH 
RECKHIID 

SOD AFZAEHCHRE (HBI) +CHRE (UH2) +HCHRE (HBA) HCHRE (HB) HCHEE 
CHIO) HCHRE (UH2O) HCHRE (HBO) +CHRE (HHSE) HCHRE CORHAA) HEHE ( 
SHD) CHR (HAD) HCHRE (HLO) HCHRE (HBB) HCHRE (HA) +CHRÉ (LHS 
2) +CHRE (RMI) : SPRITEE (5) =At 

510 REM #** SCHERMOFBOUW xxx 

520 FE=FE-1:LINE(16,172)=- (240,18) , „BF 

530 DRAW"bmi,140m1&, 1S2ME2, 15640, 144M64,128ME0, 144ME8, 1 
Zemi20, 152m1i36,132m140,152m184,128M200, 144216, 126M2E2, 1 
S2m256,146" 

540 FOR LG=16 TO 240 STEF 5 

550 PSET (LG,HG) 

560 NEXT LG 

570 IF HG=182 THEN 580 ELSE HG=182:G0T0 540 

580 LINE (1,19%) -(256,152) 

590 PSET(94, 14) :FRINT #1, "brandstof" 

600 PSET(14,140) :PRINT #1, "VOL" 


418 PSET(220,160):PRINT #1,"UIT" 

620 PSET(16,184):PRINT #1, "SCORE: " 

630 REM %*% WOLKEN xx 

64Q PUT SPRITE 2, (20,8) ‚14,3 

650 FUT SPRITE 4, (88,16) ,14,3 

440 PUT SPRITE 5, (148,10) ,14,3 

470 FUT SPRITE &, (180,14) ,14,3 

6838 PUT SPRITE 7, (228,1),14,3 

590 REM #%** VLIEGTUIGEN #4 

700 PUT SPRITE 2, (X+14,Y),4,2 

710 FUT SPRITE 1,(X,Y),4,1 

723 FUT SPRITE @,(L,H),6,@ 

750 REM %%% HOOFDLUS #43 

740 ON INTERVAL=5 GOSUB 820 

750 ON SPRITE GOSURB 930 

760 SPRITE ON 

778 INTERVAL ON 

780 SOUND @,@:SOUND 1,8:SOUND 2,9:SOUND 3,9:SOUND 4,8: 50 
UND 5,@:SOUND 8,15:SOUND 9,15:SOUND 10,0 

790 D=STICK(@): IF D=1 THEN HeH-1 

820 IF T>5@ THEN INTERVAL OFF: GOSUR 890:FUT SPRITE @, (L 
‚6,0 

810 GOTO 790 

820 REM %** VLIEGTUIG VERPLAATSEN ##+ 

830 XeXtiebeltVsHeHtis TeT+1 

840 FUT SPRITE 2, (X+16,Y),4,2:PUT SPRITE 1, (X,Y) 4,4, 1: PUT 
SPRITE @, (L,H),6,0 

850 IF X=>256 THEN X=0 ELSE IF H<36 THEN H=H+3 

840 IF L=>256 THEN L=3 ELSE IF H>140 THEN 1280 

870 RETURN 790 

380 REM %**%* BRANDSTOF VERMINDEREN %xx 

890 TO: FE=FE+ST: IF FE*240 THEN GOSUR 1140 

900 LINE(16,172)-(FE,180) ,4,BF: INTERVAL ON 

918 RETURN 790 

920 REM %4% BEREKENEN "XY&HL'" FOSITIE #44 

938 INTERVAL OFF:SPRITE OFF: IF H>Y+5 AND HZY+9 THEN 940 

ELSE L=l+32: FUT SPRITE @, (L‚,H),6,8 :SPRITE ON: RETURN 7 
70 

GAD IF L>X-16 AND L{X-12 THEN GOSUE 940 ELSE L=l+32: PUT 
SPRITE @, (L‚H),6,0: SPRITE ON: RETURN 770 

950 REM *%*%* BRANDSTOF BIJVULLEN %%% 

960 SPRITE OFF: BEEP: BEEF: BEEP: Ve. 5 

970 FOR I=FE TO 16 STEP =-ST 

980 SOUND @,16:SOUND 1,1:S0UND 2,18:S0UND Z,1:SOUND 4,19 
: SOUND 5,1:S50UND B,10:S0UND 9,12:SOUND 10,12 

990 FOR DEL=1 TO 13 

1008 X=X+. 5: L=L+V 

1019 FUT SPRITE 2, (X+16,Y),4,2:PUT SPRITE 1, (X,Y),4,1 
1020 FUT SPRITE @,(L,H),6,0 

1020 NEXT DEL 

1040 LINE (1,172)-(I-ST,180) , „BF 

1050 BEEP 

10460 NEXT 1 … 

1870 LINE(1,172)-(16,180) ,4,EF 

1080 TEL=TEL+1:FE=14:ST=ST+1: HeH+5S: V=2. 5 
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1090 LINE (66,184)-(86,192) ,4,EF 
1100 FSET(6&,184):PRINT #1,TEL 
1110 FOR DEL=1 TO 100:NEXT DEL 
1120 VeVt.1 
1120 RETURN 740 
1140 REM #** ZONDER BRANDSTOF +# 
1158 INTERVAL OFF:SPRITE OFF 
1168 RESTORE 1270 
1170 FOR I=1 TO 200 
1188 READ A$ 
1190 PLAY Af 
1200 HeHtirLelti: XeX+2 
1210 PUT SPRITE 1, (X,Y),4,1 
1228 PUT SPRITE 2, (X+16,Y),4,2 
2308 PUT SPRITE @,(L,H),6,0 
1240 IF H>140 THEN GOSUB 1280 
1250 FOR DEL=1 TO S@:NEXT DEL 
1240 NEXT I 
1270 REM #** GROND GERAAKT #* OK Ok 
1280 FOR S=0 TO 45:S0UND @,9:SOUND 1,8:SOUND 2,7:S0UND 2 
‚&: SOUND 4,4: SOUND 5,3:S0UND &,15:S0UIND 7,7 
1298 SOUND 9,16:SOUND 1@,16:SOUND 11,2:S0UND 12,10: SOUND 
13,0::FOR X=16 TO @ STEP —.1:PUT SPRITE @, (L,H) ,13,4:50 
UND 8,X:PUT SPRITE @,(L,H),11,S5:NEXT X 
1200 BEEP 
1210 PSET (86,100):PRINT #1," **EINDER#" 
1220 FOR DEL=1 TO 2000:NEXT DEL 
1320 COLOR 15,4,4 
1240 END 
1350 REM #%* DATA MUZIEK (play) 
1360 REM ##%%1/GDB/85%% 
1370 DATA A,B,C,D,E,F,A,B,C,D,E,F,A,B,C, 
F,A,B,C,D,E,F,A,B,C, D,E FA, B, C,D,E,F,A, 
1380 REM #*% DATA INSTRUKTIES xx 
1390 REM #** 1/GDE/85 «xx 
1400 DATA 7,6, ***VLIEGTUIGTANKEN**#,6,10,PIETJE VLIEGTUI 
GPILOOT,&,18,MOET GEHOLPEN WORDEN. ..,6,10,EN U KUNT HEM 
HELFEN DOOR,6,18,ZIJN VLIEGTUIGJE TE 
taiD DATA Bs Bus we „BESTUREN MET DE,&,1@, ’PIJL-OMHOOG 
TOETS. ,6,18,...DE ‘KEROSINE’ RAAKT,6,10,LANGZAAM OP EN P 
IETJE,&,18,ZAL NAAR BENEDEN VALLEN 
1420 DATA &,10,INDIEN U NIET OP TIJD,6,10,...KUNT BIJTAN 
KEN...,6,10,EN OM TE TANKEN MOET U,4,10,MET DE NEUS VAN 
DE KIST,6,10,...HET UITEINDE VAN DE 
1428 DATA &,12,BRANDSTOFARM RAKEN,6,10,..PAS OP WANT DAT 


MOET. ..,6,18,...HEEL PRECIES!!!,6,10,EN SOMS HEB JE WEL 
EENS,6,18,TE MAKEN MET EEN... 
1448 DATA &,10,ZO0GENAAMDE. . . “LUCHTZAK'.. ,6,10,WAAREIJ HE 
T VLIEGTUIGJE,&, 10,ENKELE METERS VERDER,&,10,... GESLINGE 
RD WORDT ' 
1458 DATA &,10,...NA ELKE TANKBEURT,&,10,VERBRUIKT DE KI 
ST WAT,6,10,MEER AAN BRANDSTOF...,6,10,...HET IS DE BEDO 
ELING OM 
1460 DATA &,10,...Z20 LANG MOGELIJK ,6,10,IN DE LUCHT TE 
BLIJVEN. ‚6,10, . #**VEEL SUCCES 
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1478 GOLOR 15,4,4 
14830 FOR S= TO 10:S50UND 5,0: NEXT 
1490 END 


Voorbeeld 


vernam 


OO 
OEI 
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4.8 Vier op een rij 


Vier op een rij is niet zo’n origineel Europees spel als je misschien wel zou denken. 
Heb je ooit gehoord van Go-Bang? 

Go-Bang is een kinderversie van het Japanse bordspel Go. Go-Bang wordt ge- 
speeld op een verkleinde versie van het Go-bord. De bedoeling van Go-Bang is vijf 
van je eigen pionnen op een rij te krijgen. Die pionnen mogen op elke willekeurige 
plaats van het bord worden geplaatst (Misschien nog een idee voor een computer- 
spel!). Hiervan verschilt vier op een rij dus hoofdzakelijk omdat het met een verticaal 
opgesteld rooster wordt gespeeld, waardoor de schijfjes altijd naar beneden vallen. 
Met deze MSX-versie speel je tegen de computer. Tracht vier schijfjes van jouw 
kleur in een horizontale, verticale of diagonale rij te krijgen. 

De zetten van de computer zijn gekozen volgens een door de Amerikaan James L. 
Murphy ontworpen algoritme. 


Programma 


190 REM % HHN HHN II HA HN HH NH HHN 

119 REM xx VIER OF EEN RIJ st 

120 REM HAN H MINK N NHN NHN HHN HH 

158 KEY OFF 

148 CLSsCOLOR 11,1,1:SCREEN 2 

15@ DIM SV(8,8),R(B),S(4) ,F(4),V(16) ‚N(4) 

168 OPEN "grp:'" FOR OUTPUT AS #1 

17@ DATA "bm6@,8","** VIER OP EEN RIJ s#%" 

188 DATA "bm16,52"," U speelt tegen de computer. ","bmi6, 
„es U speelt met" 

198 DATA "bm16,75"," De computer met" 

200 DATA "bm146,124"," De eerste speler met vier","bmi6,1 
12" ‚van zijn pionnen op een rij,"bmi6,120"," (vertikaal, h 
orizontaal of","“bmi6,128",diagonaal) wint. 

210 FOR Zet TO 8 

220 READ A£,B# 

250 DRAW Af: PRINTH1,B& 

240 NEXT Z 

250 CIRCLE (200,60) „5,10: FAINT(220,60) „10 

248 CIRCLE (200,74) ,5,6: FAINT (200, 746) ,& 

270 DATA 1,100,500,1#20,1,820, 4000, 1e20 

280 DATA 1,75,°00,1e18,1,450, 5000, 1e18 

290 FOR Nei TO 16:READ VOND ENEXT N 

500 GOSUE 1720 

318 IF Afz='n' OR Af="N" THEN GOTO 610 

220 REM #%** spelers beurt #*#*#220 GOSUB 1770 

258 GOSUE 1880 

S4@ COLOR 10 

558 PRINT#1,"Uw Beurt" 

340 CIRCLE(202,85),5,10: PAINT (202,85) ‚10 

370 FRESET (188,189):PRINT#1, "Kolom?" 

580 Af=INPUTE (1) 

390 IF A£<"1" OR A£2"8" OR INT (VAL (AS) >VAL (AE) THEN PL 
AY "s1im2@0n10":GOTO 280 

408 K=VAL (AE) 
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418 ReR(K) 
A24 IF R27 THEN FLAY "sim20@n14":GOTO 280 
458 RK) =ER+1 
448 R=ER+1 
450 SV(R,K) =10 
460 PLAY "s1im&gan25" 
A70 XER22+(K-1) 2D: Y=18+ (ABS (R-8) #20) 
488 CIRCLE (X,Y) ‚6,10: FAINT(X,Y) ‚18 
490 PL=10:GOSUB 1240 
504 FOR Zei TO 4 
518 IF S(Z)<4 THEN GOTO 590 
20 PLAY "s4m1250OnNnE8s10mi55Anz6" 
558 GOSUB 1880: PRINT#&1,"U WINT! !" 
540 PRESET (10,184):PRINT#1,"Spelen we weer? (j/n)'s 
550 AF=ZINPUTE (1) 
560 IF A$='n' OR Af="'N" THEN CLS:SCREEN @: END 
570 IF (AFZA'j") AND (AESA"J") THEN PLAY "s18m45ONn25" : GOT 
0 550 
80 GOSUB 1590 
590 NEXT Z 
600 REM sx COMPUTERS BEURT #%% 
618 GOSUR 1880 
628 COLOR & 
658 PRINTH#1, "Mijn Beurt" 
640 PRESET (185,85) :PFRINTH#1, "Even": FRESET (182,95) : PRINTH# 
1,"denken..." 
650 KV=D: V1=:D 
640 Ni=1 
678 FOR KC=1 TO 8 
638 RER(KC) +1 
490 IF R>8 THEN 1940 


720 K=KC 
7:50 GOSUE 1240 
748 FOR Zei TO AsN(Z) =O: NEXT Z 
750 FOR Z=i TO 4 
740 S=8(Z) 
770 IF S-W2Z THEN 1119 
788 F=S+F(Z) 
790 IF F£4 THEN 820 
308 VaV+4 
818 N(S)=N(S5) +1 
820 NEXT Z 
350 FOR Zei TO 4 
840 NEN(Z)-1 
350 IF N=-1 THEN 880 
368 I1=8%W+44SGCN(N) +2 
878 VVAV (II) ANV (B&W+Z) 
839 NEXT Z 
893 IF Wel THEN 920 
sa Wel: PL=10 
918 GOTO 720 

20 ReR+1 
950 IF R28 THEN 9820 
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GOSUE 1240 
FOR Z=1 TO 4 

IF S(Z) 23 THEN V=2 
NEXT Z 

IF VZV1 THEN 1240 

IF V2V1 THEN Ni=1:60T0 1020 
Ni=N1+1 

IF RND(-TIME) 21/Ni THEN 1940 
Vi1i=V 

KV=KC 

NEXT KC 

IF KV<>@ THEN 1100 

FLAY "s14m25@nz5'" 

GOSUR 1880: FRINTHI, "GELIJK" 
PRESET (188,48) :PRINT#&1, "SPEL!" 
GOTO 540 

K=KV 

R=ERCK) +1 RKD ERK) +1 

SV (R,K) =6 

FLAY "s1imb0An 55" 

XE (Kl) #2: Y=18+ (ABS (R-8) #20) 
CIRCLE (X,Y) ‚6,62 FAINT(X,Y) ,& 
FL=6 

GOSUE 1240 

FOR Z=1 TO 4 

IF S(Z)<4 THEN 122 

FLAY "s1Om130ON40":FLAY “s14Mm5SAAN5D" 
GOSURB 1880: FRINTH#1, "IE WIN! !":GOTO 540 
NEXT Z 

GOTO 220 

REM «ax vier op een rij? #3 
G=10 

IF FL=1@ THEN Q=6 

XD Verl 

Z=0 

GOSUR 12580 

X=is Y=l 

GOSUR 1280 

Xi: Y=0 

GOSUR 1580 

Xels Yeal 

GOSUB 1280 

RETURN 

REM #4 KONTROLEER RICHTING 2% 
D=1:S=1 

F=@ 

ZeZ+t1 

C=0 

FOR N=i TO 2 

KOZEN X 

RY=R+N 4 VY 

IF EOZ1 OR KO28 OR RYZ1 OR RY>B THEN 1540 
SF=SV (RY ,KO) 

IF C=0 THEN 1510 

IF SF=Q THEN N=Z:G0OT0 1540 


1498 F=F+1 

1502 GOTO 1540 

1510 IF SF=PL THEN S=S+1:G0T0 1540 
1528 C=1 

1550 GOTO 1480 

1540 NEXT N 

1550 IF D<>@ THEN D=@:X=-Xr Ye YY: GOTO 1410 
15468 S(Z)=5 

570 F(Z)=F 

1580 RETURN 

1590 REM #** INITIALISATIE #%** 
1648 FOR N=1i TO 4 

1610 F(N)=BiN(N) =D: S(N) =D 

1628 NEXT N 

1650 FOR N=1 TO 8 

1448 R(N) =@ 

1650 NEXT N 

1440 FOR R=1 TO 8 

1470 FOR K=1 TO 8 

14688 SV(R,K) =D 

1698 NEXT K 

1708 NEXT R 

1718 CLS 

1720 FRESET (146,144):PRINT#1,"Wilt U eerst zetten (j/m)7" 
1720 A$=INFUTE(1) 


1740 IF A$Z*"*n" AND ASZE"N" AND AFC>"j" AND A$42"J" THEN 
1730 

1750 REM %** SPEELBORD TEKENEN «+ 

1760 CLS 


1770 FOR X=12 TO 172 STEP 20 

1788 LINE(X,8)-(X,168) „7 

1790 NEXT X 

1800 FOR X=8 TO 148 STEP 20 

1810 LINE(12,X)-(172,X) ,7 

1820 NEXT X 

1830 COLOR 2 

1840 FOR X=15 TO 153 STEP 20 

1850 PRESET (X,8) :PRINT#&L , (X+7) /20; 
1840 NEXT X 

1870 RETURN 

1880 REM #*# DRUKZONE INITIALIZEREN 
1890 LINE(265,140) -(180,60) ‚1 ,BF 
1900 RETURN 


990 


Voorbeeld 


Ui us Beurt 
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4.9 Granny Crunch 


Granny (of Oma) is een fanatieke appeleetster. Het is zo erg dat ze bij gebrek aan 
haar lievelingskost volledig wegkwijnt. Bovendien leeft Granny opgesloten in een 
lugubere tuin, omgeven door een omheining met prikkeldraad onder hoogspanning! 
Jouw taak is om Granny de vallende appels te helpen vangen, zonder de omheining 
te raken, voor ze de geest geeft (als ze bleek begint te worden moet je vlug een appel 
proberen op te eten). 

Hoe meer appels, hoe meer punten. Een betere score krijg je door de appels zo hoog 
mogelijk op te eten. 

Granny bestuur je met de vier cursortoetsen. 


Programma 


105 REM MAMMA HN HHN HM IH MHI HIE II A 

118 REM sx GRANNY CRUNCH 3% 

120 REM MM N IHN IHN HIHI HIE IMI HIE 

15@ CLS:SCREEN @:WIDTH 58:KEY OFF:COLOR 15,1,1 

148 LOCATE 18,1:PRINT "GRANNY CRUNCH": FOR P=@ TO 18:L0CA 
TE AT 1,35+P:READ Af£:PRINT Af:NEXT P 


15@ IF INKEY$="" THEN 150 
1468 DATA " Help GRANNY de vallende appels op"‚te eten 
‚ Gebruik hiervoor de cursor-,toetsen.,," Hoe hoger ee 


n appel opgegeten wordt,",hoe meer punten je scoort!,," 
Opgelet voor de omheining — die",‚staat onder hoogspann 
ing en is dus,dodelijk!, 
170 DATA * Granny ziet er wit uit als ze",honger lijdt 
. Ze moet dan vlug wat,eten krijgen anders sterft ze!,," 
Granny heeft vijf levens.'",,," Druk een toets om te 
beginnen" 
180 SCREEN 1,2 
198 A$=CHRE (&H18) +CHRS (&H3B) +CHRE (&H78) +CHRE (&H7C) HCHRE ( 
ZHFC) +CHRE (BHFE) +CHRE (&HFE) +CHRE (&HFF) +CHRE (&HE7) +CHRE (2 
HE7) +CHRE (&HFF) +CHRÉ (&H7F) +CHRE (RH7F) +CHRE (RHEF) HCHRE (ZH 
1F) +CHRE (2&H7) 
200 A$=AE+CHRE (&H18) +CHRE (HIC) +CHRE (&H1E) +CHRE (&HZE) +CH 
RE (HHEF) +CHRE (&H7F) +CHRE (2H7F) +CHRE (HEF) HCHRE (HEF) +CHR 
& CHEF) +CHRE (&HFEF) +CHRE (&HFE) +CHRE (2HFE) +CHRE (HFC) +CHRS 
(&HF8) +CHRE (&HEO) : SPRITES (1) =Af 
218 AS=CHRE (&H7) +CHRE (&H1F) +CHRE (&HEF) +CHRE (&H7F) +CHRE (X 
HZF) +CHRE (&HFEF) +CHR$ (HEF) +CHRE (&HEF) +CHRE (&HE7) +CHRE (&H 
E7) +CHRE (&HFF) +CHRE (2H7F) +CHRE (&H7F) +CHRE (&HSF) +CHRE (HT 
6 
220 A$=AE+CHRE (&H7) +CHRE (&HAD) +CHRE (&HFB) +CHRE (&H7C) +CHR 
E(RHFE) +CHRS (&H7E) +CHRE (HEF) +CHRS (&H7F) +CHRE (&HFF) +CHRE 
(HEF) +CHRE (&HFF) +CHR$ (&HFF) +CHRE (&HFE) +CHRE (&HFE) +CHRÉ ( 
ZHEC) +CHR$ (&HFB) +CHRS (&HEO) : SPRITES (2) ZA 
230 AS=CHRE (HO) +CHRE (HO) +CHRE (HI) HCHRE (KHD) HCHRE (&H1F 
)+CHRE (HF) +CHRE (&H1F) +CHRE (&HF) +CHRE (&HF) +CHRE (BHA) +CH 
R$ (2HD) HCHRE (HHD) +CHRE (RHO) HCHRE (HO) +CHRE (HO) +HCHRE (HD 
)+CHRÉ (2H6O) +CHRE (&HAD) +CHRE (&HO) HCHRE (2H7D) HCHRE (&HFB) + 
CHR$ (&HF B) 
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240 A£=AE+CHRE (&HFO) +CHRE (&HEB) +CHRE (&HCO) : SPRITES (2) =A$ 
258 A$=CHRE(&HO) +CHRE (HB) HCHRE (&H6) HCHRE (HE) +CHRÉ (HH1E 
)+CHRÉ (&HLE) +CHRÉ (&HZE) HCHRS (&H3F) +CHRSE (KHE) +CHR$ (&HIF ) 
+CHRÉ (&HLE) +CHRÉ (&H1E) +CHRE (&HF) +CHRE (&H7) +HCHRS (HHD) +CHR 
$ (&HO) 

260 A$=AE+CHRE (&HO) +CHRÉ (LHB) +HCHRE (&HED) +CHRE (&HFO) +CHRS 
(HFD) +CHRE (&HFB) +CHRE (RHEC) +CHR$ (HFC) +CHR$ (&HFC) +CHRÉ ( 
HEC) +CHRE (&HFB) +CHRÉ (&HFO) +CHR$ (&HEO) +CHRÉ (HCE) +CHRE (2 
HO) +CHRÉ (HO) : SPRITES (4) =Af 

278 A$=CHRE (&HO) +CHRE (KHO) +CHRE (RHO) +CHRE (LHB) +CHRE (HHD) 
+CHRÉE (&H6) +CHRÉ (YHE) +CHRS (BHE) +CHRE (&HF) +CHRE (BHE) +CHRS ( 
&H7) +CHRE (RHS) +CHRÉ (HB) +CHRS (RHO) +HCHRE (RHO) +CHRS (HO) 
288 A$=AE+CHRE (&HO) +CHRÉ (&HO) +CHRE (HB) +HCHRE (RHO) +CHRE (% 
HCO) +CHR$ (&HEO) +CHRÉ (&HFO) +HCHRE (&HFO) +HCHRS (HFD) +CHRE (&H 
FO) +CHRE (&HEO) +CHRÉ (&HCO) +CHRE (&HO) +CHRE (HO) +CHRE (&HO) + 
CHR$ (&HO) : SPRITE (5) =A$ 

290 AE=CHRE (&HO) +CHR$ (&HB) +HCHRSE (&HO) +CHRE (LHB) +CHRE (HD) 
+CHRE (&HO) +CHRE (HI ) HCHRE (LHE) +CHRE (LHS) HCHRE (RH) HCHRE ( 
&HD) +CHRE (&HO) +HCHRE (&HO) +CHRE (RHO) +CHRE (LHO) HCHRE (LHO) 
200 AF-AS+CHRE (&HO) +CHRE (XHB) HCHRE (2HO) HCHRE (HO) +CHRE (2 
HO) +CHRE (HB) +CHRE (&HBB) +CHRE (&HCB) +CHRE (2HCO) +CHRS (4HED 
) +CHRÉ (&HD) +CHRE (HO) HCHRE (RHO) +CHRE (&HO) +CHRE (&HO) +CHRE 
(HO) : SPRITES (6) =At 

218 A$=CHRE (&H7) +CHRE (&H1F) +CHRS (2HZF) +CHRÉ (&H7C) +CHRE (8 
HIC) +CHRÉ (&HFF) +CHRE (&HFF) +CHR$ (&HEF) HCHRE (&HFF) +CHRÉ (&H 
FF) +CHR$ (&HFF) +CHR$ (&H7F) +CHR$ (H7F) +CHRS (HHZF) +CHRE (HI 
F) +CHR$ (&H7) 

320 Af=AE+CHRE (&HFO) +CHRE (&HFC) +CHRE (&HFE) +CHRS (HEF) +CH 
R$ (&HFF) +CHRS (&HFS) +CHR$ (&HEB) +CHR$ (&HBO) +CHRE (&HBOB) +CHR 
$(&HED) +CHRÉ (&HFB) +CHRE (HEF) +CHR$ (&HFF) +CHRE (&HFE) +CHRÉ 
(&HFC) +CHRÉ (&HFO) : SPRITES (7) =A$ 

338 AS=CHR$ (&H7) +CHRÉ (HIE) +CHRE (RHZF) +CHRE (RH7C) +CHRS (% 
H7C) +CHR$ (&HEF) +CHRE (HEF) HCHRE (&HFF) +CHRE (HEF) +CHRÉ (&H 
FE) +CHR$ (&HFF) +CHR$ (&H7F) +CHR$ (&H7F) +CHRS (&HZF) +CHRS (&H1 
F) +CHR$ (&H7) 

340 A$=AS+CHRE (&HED) +CHRÉ (&HFB) +CHRE (&HFC) +CHRE (&HFE) +CH 
R$ (&HFE) +CHR$ (RHFF) +CHR$ (&HFF) +CHR$ (&HFF) +CHRS (&HAA) +CHR 
$(LHFF) +CHR$ (&HFF) +CHR$ (&HFE) +CHR$ (&HFE) +CHRE (HFC) +CHRE 
(&HFB) +CHR$ (&HEG) : SPRITES (8) =A$ 

250 REM s#%#* HOOFDLUS #** 

340 GOSUE 620 

370 GOSUB 490 

280 FOR A=1 TO 4 

398 AX=RND(-TIME)#220+15:FOR AY=1 TO 195 STEP 4 :PUT SPR 
ITE 2, (AX,AY) „2,3 

A0B S=STICK(O) 

A1D IF S=1 THEN GY=-3:GX=0 ELSE IF S= THEN GX=Z:GY=0 EL 
SE IF S=5 THEN GY=35:GX=@ ELSE IF S=7 THEN GXe-3:GY=@ 

A20 XV=XV+GX2 YV=YV+GY 

A20 IF HIT THEN GOSUB 540 :A=1:GO0T0 390 

AAB IF (XV>235)+(XV46) +(YV>17B)+(YV£B) THEN GOSUB 670: G0 
TO 380 

458 IF G=1i THEN G=2 ELSE G=1 

460 PUT SPRITE 1, (XV, YV) ,,G 

A70 NEXT AY:IF A=3 THEN FUT SPRITE 1,,15 
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480 
490 
500 
510 
520 
5350 
540 
550 
5460 
570 
580 
14: 8 
50 
620 
610 
620 
650 
640 
NE (2 
650 
660 
470 
430 
10:5 
6,0 
PUT 
700 
7108 
720 
750 
740 
750 
740 
770 
780 
790 
800 
810 
820 
8 
840 
“(AE 
850 
H&0 
870 
880 
89,0 


NEXT A:GOSUB 470:GOTO 280 
REM sx HIER IS GRANNY 

XVERND (1) #150+20: YVERND (1) #150+20 

PUT SPRITE 1, (XV,YV) ,11,1:G=1: GX=0: GY=0 

RETURN 

HIT=-1: RETURN 

REM «* GRANNY EET EEN APPEL 

FUT SPRITE 2,(-10,0):SPRITE OFF 

FOR P=1 TO 2:1F G=7 THEN G=8 ELSE G=7 

FUT SPRITE 1,,11,6 

SOUND &,25:S0UND 7,2:S0UND B,16:S0UND 9,16:SOUND 10, 
OUND 12,5 

SOUND 13,6:FOR I=1 TO 100:NEXT 1 

NEXT F:SOUND 8,@:S0UND &,0 

ATY=AT +1 : SC4=SC4+186-AX: HIT=0: SPRITE ON: RETURN 

REM #* SPEELVELD « 

CLS:SCREEN 2:0N SPRITE GOSUB 530 

LINE(@,@) -(255,6) ,9,BF:LINE(255,6) -(249,191),9,BF:LI 
55,191)-(0,185) ,9,BF:LINE(B,0)- (4,185) ,9,EF 

SPRITE ON 

RETURN 

REM sx GRANNY STERFT xx 

FUT SPRITE 2,(-18,0):SPRITE OFF:FOR S=@ TO 200 STEP 
OUND @,S:S0UND 1,8:S0UND 8,10 

IF S=150 THEN PUT SPRITE 1,,15,6 ELSE IF S=108 THEN 
SPRITE 1,,15,5 ELSE IF S=58 THEN PUT SPRITE 1,,15,4 
NEXT S:SOUND 8,0 

IF D%=3 THEN GOTO 750 

D4=D4+1:PUT SPRITE 1, (-20,0) 

FOR S=1 TO 4&0O:NEXT S 

GOSUE 490: SPRITE ON: RETURN 

REM * EIND SPEL « 

SCREEN 1:LOCATE 8,6:PRINT "GRANNY CRUNCH" 

LOCATE 7,10:PRINT "APPELS GEGETEN"; ATX 

LOCATE 7,12:PRINT "TOTALE PUNTEN ";SC% 

LOCATE 7,14:PRINT “UW SCORE "8 SCU+AT% 

IF SCX+AT4>HS% THEN HS%=SC4+AT 

LOCATE 7,16:PRINT "HOOGSTE SCORE ";HS% 

LOCATE 4,21:PRINT "OPNIEUW SPELEN? (J/N) " 
A$=INFUT$ (1) 

IF (Af="n")+(A$="N") THEN GOTO 880 ELSE IF (A$4>"j") 
<»"J") THEN BEEP:GOTO 820 

AT%=0: SC4=0: D4=@ 

GOSUE 420: GOSUB 490 

RETURN 

SCREEN @ 

END 
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Voorbeeld 
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4.10 Jawadde 


Een MSX-uitvoering van het alom bekende spel Yahtzee. Het kan met maximaal zes 
spelers gespeeld worden. De computer speelt niet mee, maar houdt de punten van 
elke speler keurig bij. Op het einde van het spel, na dertien ronden, wordt de uitslag 
getoond, inclusief eventuele bonuspunten. 

Een uitgebreide gebruiksaanwijzing van het spel is in het programma zelf opgeno- 
men. 


Programma 


10 REM %be NH HH HIE IH HE He A 

110 REM %% JAWADDE xx 

120 REM % HHN HHM HI HI 

150 CLEAR (1990) 

140 DIM DI CS) „PR(6) „BL (5) „PLS (EN) „TE CG, AS) 

150 SCREEN 1,2:WIDTH 52 

160 KEY OFF:CLS 

170 GOEOR: WZ 37 

1830 I&=CHRE (HEF) +CHRE CHEF) +CHRE (HEF) CHR (HEF) HCHRE (3% 
HEF) +CHRE (HEF) +CHRE (HEF) +CHRE (&HEE) +CHRE (&HFE) +CHRE (&HF 
FO) ACHRE (HEF) +CHRE CHEF) +CHRE C&HEF) +CHRE CHEF) +CHRE CHEF) 
+CHRE (&HEE) 

190 IF=IECHRE (&HFEF) +CHRE CHEF) +CHRE (HEF) +CHRÉE (2HEF) +CHR 
E (HHEF) +CHRE (HEF) +CHRE (HEF) +CHRE (&H7ZE) HCHRE (&H7F) +CHRE ( 
HEE) CHR CHEF) +CHRE (HEE) +CHRE (HEF) +CHRE (HEF) +CHRE (2H 
FE) +CHRE (HEF) 

200 FOR Xe=l TO 25 STEF G:SFRITEE(O)=IK:NEXT X 

21 IE=CHRE (HEF) +CHRE (&HEF) +CHRE (HEF) +CHRE (&HFEF) HCHRE (3 
HEE) +CHRE (HEF) +CHRE (&HFE) +CHRE (HEF) +CHRE (BHEF) +CHRE (BHE 
Fo) 4CHRE CHEF) +CHRE (&HE7) +CHRE (&HE7) #CHRE (HEF) +CHRE (&HEF) 
+CHRE CHEF) 

220 IE=IE+CHRE(&HEF) +CHRE (HHFEF) +CHRE (&HFEF) +CHRS (&HE7) +CHR 
ECHHEZ) HCHRE CHHEF) +CHRE (BHEF) HCHRE (HHEF) HCHRE (HEF) +CHRE ( 
KHFE) +CHEE (HEF) +CHRE (&HEF) HCHRE (HEF) +CHRE (HEF) +CHRÉ (%H 
FE) +CHRE (HEF) 

250 FOR X=2 TO 26 STEP A:SPRITES(X)=IE:NEXT X 

240 IE=CHRE (&HEF) +CHRÉ (&HEF) +CHRE (HHEF) +CHRE (&HFF) +CHRE (2 
HEE) +CHRE (&HEF) +CHRE (&HEF) +CHRE (&HFE) +CHRE (&HFE) +CHRE (&HF 
FE) +CHRE (&HFEF) +CHRÉE (&HE7) HCHRE (&HE7) +CHRE (&HEF) +CHRE (HEF 
+CHRE (HEF ) 

250 I= IECHRE (&HEF) HCHRE (2HEF) HCHRE (&HFF) HCHRE (HE 7) +CHR 
ECYHE7) HCHRE CUIAEE) +CHRE C&HEF) +CHRSE (HH ZE) +CHRE CHH7E) HHR ( 
HEE) CHR CHEF) CHR CHEF) CHR (HEF) +CHRE CHEF) +CHRE (SH 
FE) CHR (2HEF ) 

260 FOR X=5 TO 27 STEP AiSPRITES(OSISSNEXT X 

270 IE=CHRE (HEF) +CHRE (&HEF) HCHRE (&HEF) +CHRE (2:HE7) +CHRE (2 
HEZ) +CHRE CHEF) +CHRE (HEF) +CHRE (HEF) 

20 Ie lF+IE+IE+IË 

270 FOR X=4 TO 28 STEP &:SPRITES (X)=ISENEXT X 

500 IE=CHRE (HEF) +CHRE (HEF) HCHRE (HEE) +CHRE (&HE 7) +CHRE (4 
HEZ) CHR CHEF) CHR (HEF) +CHRE (&HEE) +CHRE (&HFE) +CHRE (&HF 


59 


F) +CHRÉ (&HFF) +CHRE (2HE7) +CHRÉ (&HE7) +CHRE (KHFE) +CHRS (XHFF ) 
+CHR$ (HEF) 

310 1$=18+CHR$ (HEF) +CHR$ (HEF) +CHRE (&HFF) +CHRS (&HE7) +CHR 
F(HHE7) HCHRE (HEF) HCHRE (HHEF) +CHRÉ (&H7F) +CHRE (HF) +CHRÉ ( 
BHEE) +CHR$ (HEF) +CHRS (&HE7) +CHRÉ (2HE7) HCHRE (XHFF) +CHR$ (&H 
EF) +CHRÉ (HEF) 

320 FOR X=5 TO 29 STEP 6:SPRITES (XO =IE:NEXT X 

230 I1$=CHRÊ(LHEE) +CHR$ (RHFF) +CHRÉ (&HEF) +CHRS (&HE7) +CHRÉ (2, 
HE7) +CHR$ (&HFE) +CHRE (&HFF) +CHR$ (&HE7) +CHRE (RHE7) +CHRE (HF 
F) +CHRÉ (BHFF) +CHRÉ (RHE7) +CHRÉ (&HE7) +CHRE (&HEF) +CHRE (HEF ) 
+CHRE (2HFF) 

240 1$=14+1% 

350 FOR X=& TO 20 STEP &:SPRITES(X)=IE:NEXT X 

268 LOCATE 7,@:PRINT "## JAWADDE #4" 

378 LOCATE 3,9:PRINT "Instrukties? (j/n)": 

280 BEEP: I$=INPUT$ (1) 

390 IF I$="j" OR I$="J" THEN GOSUB 2370 ELSE IF IS>"n" A 
ND I£Z>"N" THEN GOTO 280 

A00 GOSUR 2250 

410 GOSUE 2090 

420 FOR F=1 TO & 

430 FOR Kel TO 12 

AAD TEP,KO=" 

4A5@ NEXT K 

460 NEXT P 

470 FOR A=1 TO 13 

480 FOR P=1 TO PM 

490 GOSUE 840 

500 LOCATE 18,21,8:PRINT A 

510 FOR I=1 TO S:SL(I)=O:NEXT 1 

520 AL=0:R=18 

530 FOR G=1 TO 3 

540 LOCATE 20,21,@:PRINT G 

55@ FOR Wet TO 5 

540 IF SL(W)=1 THEN GOTO 400 

570 PLAY "18s8m380n42" 

580 DI (W)=INT (RND(-TIME) #6) +1 

59@ GOSUB 750 

400 NEXT W 

610 IF G=3 THEN 630 ELSE GOSUEB 970: IF AL=1 THEN 630 

620 NEXT G 

&30 GOSUE 1180 

640 PUT SPRITE 1, (-50,-50) 

650 PUT SPRITE 2, (-50,-50) 

68 PUT SPRITE 3, (-50,-50) 

670 PUT SPRITE 4, (-50,-50) 

680 PUT SPRITE 5, (-50,-50) 

690 NEXT P 

700 NEXT A 

710 GOSUE 1840 

720 IF T=2 THEN GOTO 400 ELSE GOTO 419 

720 GOTO 730 

740 SCREEN @:END 

750 REM ##*#* DOBBELSTEEN 

768 IF W£4 THEN XC=64+48%(W-1):YC=128 ELSE XC=90+48% (W-4) 
:YC=144 
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778 ON W GOSUBR 790,8220,810,820,870 


798 PUT SPRITE 1,(XC,YC) ,15,DI (W) +4% (W-1) : RETURN 

300 FUT SPRITE 2, (XC,YC) ,15,DI (W) +6% (W-1) : RETIJRN 

818 FUT SPRITE 3, (XC,YC) ,15,DI (UW) +6% (W-1) : RETURN 

820 PUT SPRITE 4, (XC,YC) ,15,DI (UW) +6% (W-1) : RETURN 

850 PUT SPRITE 5, (XC,YC) ,15,DI (W) +6% (W-1) : RETURN 

840 REM **#* SCORES sx 

850 LOCATE @,0,0:PRINT SFC(29); 

868 LOCATE INT((2B-LEN(PLE(P)))/2) „O: PRINT PL$(P) 3 

370 FOR R=3 TO 9 

880 LOCATE 9,R,B:PRINT *  ":LOCATE 26,R,B: PRINT *  * 

890 NEXT R 

900 FOR X=1 TO & 

910 IF T&(P,X 2" * THEN LOCATE 9,X+2,8:PRINT USING "##"3 
VAL (T$ (P,O) 

920 NEXT X 

930 FOR X=7 TO 12 

940 IF TE(P,XI EE" * THEN LOCATE 26,X-4: PRINT USING "#5 V 
AL (T&E, XD 

950 NEXT X 

968 RETURN 

970 REM ## SELEKTIE DOBBELSTENEN #x% 

980 IE=INPUTE (1) 

998 IF IF-CHRÉ(13) THEN RETURN ELSE IF I$="!" OR I$="@" O 
R I$="#" OR If="$" OR I$="%" OR If="“" THEN GOSUB 1130:G0 
TO 980 ELSE IF I4"1" OR I$>"&" THEN PLAY “s12m5@8n20": GO 
TO 980 

1090 FOR X=1 TO 5 

1010 IF SL(X>=B AND DI(X)=VAL (IS) THEN SLX) =1:KL=4:0ON X 

GOSUE 1080,1090,1100,1119,1120:G0T0 1020 

1020 NEXT X 

1430 FOR X=1 TO 5 

1040 IF SL(X)=@ THEN GOTO 980 

1050 NEXT X 

1060 AL= 

1070 RETURN 

1080 FUT SPRITE 1,,KL,DI(X) +6% (X-1) : RETURN 

1098 FUT SPRITE 2,,KL,DI(X) +6% (X-1) : RETURN 

1108 PUT SPRITE 3,,KL,DI(X) +6% (X-1) : RETURN 

1118 PUT SPRITE 4,,KL ‚DI (X) +6% (X-1) : RETURN 

1120 PUT SPRITE S5,,KL,DI (X) +6% (X-1) : RETURN 

1130 REM #x* LOSLATEN se 

1148 IF I$="!" THEN K=l ELSE IF If="@" THEN K=2 ELSE IF I 
$="#" THEN K=3 ELSE IF I$="$" THEN K=4 ELSE IF I$="%" THE 
N K=5 ELSE K=& 

1150 FOR X=1 TO 5:1IF SL(X)=1 AND DI OO =K THEN SL OO =Br KL= 
15:ON X GOSUB 1080,109@,1100, 1118, 1128: RETURN 

1168 NEXT X 

1170 RETURN 

1188 REM #** SELEKTIE SCORE “xx 

1190 LOCATE 2,22,0:PRINT "kies score (1-6/a-g)"; 

1200 SC#=INFUT$ (1) 

1218 IF (SC$>="1" AND SC${="6") OR (SC$>="A" AND SC#{="G" 
) THEN GOTO 1220 ELSE IF (SCt>="a" AND SC${="g") THEN SC$ 
=CHRE(ASC(SC#)-22):GOTO 1220 ELSE GOTO 1200 
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1220 FOR Xe=t TO AsER(X)=DINEXT X 

12350 FOR X=1 TO SsPR(DICKOD)=PFR(DICK)IJ+IE NEXT X 

1240 T=@ 

1250 K=ASC(SC+) -48 

1248 IF K>& THEN K=K-10 

1270 IF T&(P,K)Z2" * THEN GOTO 1209 

12838 ON K GOSUB 13540,1540,1540,1540,1240,1240,1590,1440, 1 
490,1550,14650,1700,1740 

1290 T&(F,K) =STRE(T) 

1520 IF K>4 THEN LOCATE 26,K-4,0 ELSE LOCATE 9,K+2,0 
1518 PRINT USING "##"; Ts; 

1520 LOCATE @,25,@:PRINT SPC (28); 

155% RETURN 

1240 REM #*x OGEN TELLEN 2x 

1550 FOR X=1 TO 5 

1540 IF DI (X)=k THEN T=T+K 

1570 NEXT X 

1588 RETURN 

1290 REM xx DRIE GELIJK xx 

1408 FOR X=1 TO 4 

1418 IF PR(X)=5 OR PROM) =4 OR PR(X)=5 THEN GOSUB 1740:RET 
URN 

1420 NEXT X 

1450 RETURN 

1440 REM * vier gelijk 

1450 FOR X=1 TO 6 

1448 IF PR(X)=4 OR PR(X)=5 THEN GOSUR 1740: RETURN 
1470 NEXT X 

1480 RETURN 

1490 REM sr ZE PLUS 2 Ha 

1500 FOR X=i TO 4 

1518 IF PR(X)=Z2 OR PR(X)=5 OR PR(X)=5 THEN T=T+PR(X) 
1520 NEXT X 

1550 IF T=5 THEN T=25 ELSE T=0 

1548 RETURN 

1550 REM %#%* REEKS VAN 4 sx 

1540 GOSUB 1770 

1570 IF PR(1)=5 THEN GOTO 1610 

1580 FOR X=2 TO S:IF PR(X)=5 THEN 1600 ELSE IF DICX)=EDI(X 
—-1)+1 THEN T=T+i 

1590 NEXT X 

1428 IF T<3 THEN T=@:RETURN 

1618 T=5 

1628 RETURN 

1650 REM #4 REEKS VAN 5 xx 

1640 GOSUB 1770 

1650 IF PR(D)=E OR PR(A)=5 THEN 1680 

1640 FOR X=1 TO 4:IF PR(X)=5 THEN 14688 ELSE IF DICX)Z2DIC 
X+1)-1 THEN RETURN 

1678 NEXT X 

14680 T=40 

1490 RETURN 

1700 REM #x 5 GELIJK — JAWADDE 

1718 FOR X=1 TO 6: IF PR(X)=5 THEN T=50: RETURN 

1720 NEXT X 
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1720 


RETURN 


1740 REM #x*x KANS #x 

175@ FOR X=1 TO Ss: T=T+DICX)ENEXT X 

1740 RETURN 

1770 REM ** sorteer dobbelstenen #%% 

1788 FOR DS=1 TO 4 

179@ FOR X5=5 TO DS STEP —1 

1800 IF DI(XS-1) :DICXS) THEN DH=DI(XS-1):DI(XS-1) =DI (XS) : 
DI (XS) =DH 

1810 NEXT XS 

1820 NEXT DS 

18:58 RETURN 

1840 REM ##* TOTALEN #%% 

1858 CLS:SCREEN ,,10 

18608 LOCATE 7,@,@:FRINT "%% uitslag ##*' 

187@ LOCATE 1,2,@:PRINT "(1-6 + Bonus + A-G = Totaal)" 
1888 FOR P=1i TO FM 

1890 LOCATE @,F#5+1,B: FRINT PLE(P) 4 

1900 T1=0 

1918 FOR X=1 TO 4: T1=T1+VAL(TE(P,X)DiNEXT X 

1920 T2=0 

1950 FOR X=7 TO 15: T2=T2+VAL(TE(P,X)) NEXT X 

1940 IF T1£65 THEN X=@ ELSE X=5 

195@ T=T1+T2+X 

1968 LOCATE 0,F#35+2,0@: PRINT USING * ### + HR + HRH — 
BENE TLG AET LET 

1978 NEXT P 

1980 LOCATE @,25,0: PRINT "Opnieuw met deze spelers?'; 
199@ SCH=INPUTE (1) 

2098 IF SC4="J" OR SC4="j" THEN T=1: RETURN 

2018 IF SC#H<2"N" AND SC&<>'n" THEN GOTO 1993 

2020 LOCATE @,25,@:FRINT "Opnieuw met andere spelers?'": 


2050 
2040 
2050 
2040 
2070 
2080 
200 
2100 
2119 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


6,0, 


2210 


2,"C. 


2220 


SC&=INPUT& (1) 

IF SC&="J" OR SC#="j" THEN T=2: RETURN 

IF SCHZ2'N" AND SCE{>'"n" THEN GOTO 2050 

CLS 

SCREEN @ 

END 

REM #%% scorebord %%% 

CLS 

COLOR 1,5,3 

RESTORE 2200 

FOR X=1 TO 16 

READ R‚,C,SC#:LOCATE C‚R‚@: PRINT SC# 

NEXT X 

LOCATE 0, 1:PRINT ME Sr Ko Ap Sr Ar A Ar A A Ap Ay Ar Ar Ay Fr Ar Ar Ar Ar Mr Ar A Ar Ag Ar Ar Ar So Ar HI 
LOCATE 0, 11:FRINT ET Badia din. Jinn din dits din dte dln dt Jit Jt dln lt dns di in in nn nn ln 
LOCATE 0. 14,0: PRINT FT in din Jin. it din di dits din. dh Jin din. din di dl dk ien dln dln dln din inn dn nd dd 
RETURN 

DATA 5,0,"1i.enen :",4,8,"2.tweeen: ",5,0,"3.drieen: 
"A.vieren:",7,0,"S.vijven:",8,0,"6.zessen: 

DATA 3,12,"A.5 dezelfde :",4,12,"B.4 dezelfde :",5,1 
> plus 2 The 

DATA 6,12,"D.reeks van 4:",7,12,"E.reeks van 5:",8,1 


2,"F. Jawadde ge 


2250 DATA 9,12,"G.speciaal :",12,0," Bonus van 55 punt 


en voaor"“,15,8," 1-6 tataal van 635 of meer" 

2248 DATA 21,5,Ronde Worp 

2258 REM #** INVOER V.D. SPELERS #a 

2248 CLS 

2278 COLOR 1,7,7 

2280 FRINT “Invoer van de spelersnamen. Om invoer te b 


eeindigen, drukRETURN alleen. ": PRINT: FRINT: FRINT 

2290 FOR X=1 TO & 

2300 PRINT "Naam speler"; Xs; 

2318 INFUT PL&(X) 

2520 IF X=1l AND PLE(X)="" THEN GOTO 2510 ELSE IF PL&EOO=" 
"_ THEN 2540 

2550 NEXT X 

2540 PM=X-1 

2558 FOR P=1 TO 6:FOR K=1i TO 12:T4(P,K)=" "E2NEXT KaNEXT P 
2568 RETURN 

2578 REM «** INSTRUKTIES #44 

2580 RESTORE 2480 

2598 FOR X=1 TO 2 

2400 CLS 

2410 LOCATE 7,@:FRINT "sx JAWADDE #x" 

2420 READ R‚C,I% 

2458 LOCATE C‚R:PRINT 14; 

2440 IF RS225 THEN FRINT:GOTO 2420 

2450 BEEF: If=INFUTE (1) 

2448 IF I4S2CHRE(1S) THEN GOTO 2450 

2470 NEXT X 

2480 DATA 2,2,Jawadde wordt door1i-6,5,0,spelers gespeeld. 

2498 DATA 4,2,De winnaar is de speler,5,0,die de meeste p 

unten scoort. 

2508 DATA 6,2,Een spel bestaat uit 15,7,8,ronden per spel 

er. Per rande 

2518 DATA 8,@,worden de dobbelstenen to 2,9,0, “maal gewor 

pen. Na elke worp,;"“,18,@,mag men dobbelstenen lossen 

2528 DATA 11,8,of vasthouden. Na 5 worpen,12,0, (of als al 
le dabbelstenen 

2550 DATA 15,0,vastgehouden zijn) MOET men,14,8,een score 
kiezen.,15,2;Na 15 ronden is het spel,16,0,ten einde. 

2540 DATA 17,2,Een dobbelsteen wordt,18,0, "vastgehouden m 

et toetsen 1-6,",19,0,overeenkaomend met het aan-,20,8, "ta 

l ogen. Om los te laten," 

2550 DATA 21,0,dient men dezelfde toetsen,22,0,te gebruik 

en met SHIFT. ,23,2,druk RETURN voor vervolg 

2568 DATA 2;0,;HET SCOREN 6 5538," " 

2570 DATA 4,0,1-6 totaal van de doabbel-,5,4,stenen met ge 
lijke,6,4,ogen 

2580 DATA 7,8,"A.3 dezelfde :totaal ogen",8,0,"B.4 dezelf 


de :totaal ogen",9,8,"C.5 plus 2 825 punten",18,2, (5+2 
dezelfde) 

259@ DATA 11,0,"D.reeks van 4:38 punten",12,0,"E.neeks va 
n 5:48 punten",125,8,"F. Jawadde :5@ punten" 


2608 DATA 14,2,(5 gelijk),15,@,"G.speciaal :totaal ogen 
",16,2, (gelijk welke kombinatie) 

2610 DATA 18,0,Als een gekozen score niet,19,@,overeenkom 
t met de dobbel- 
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2620 DATA 20,9,"stenen, krijgt men NUL",21,@,punten!,23,2 
‚druk RETURN voor vervolg 
2638 RETURN 


Voorbeeld 


4.11 Guillotine 


‘Galgje’ met een Franse smaak. Inderdaad, een revolutionaire versie van het beken- 
de spel. 

Het is oppassen geblazen voor je hoofd, want dat valt echt in de mand als je het 
verborgen woord niet vlug genoeg weet te vinden! 

Het programma bevat al een aanzienlijke selectie woorden, maar je kunt ook je 
eigen woorden inbrengen, door de dataregels te wijzigen. Let daarbij op het volgen- 
de: 

— de te zoeken woorden mogen gegroepeerd worden in 1 tot 9 categorieën 

— de eerste DATA van elke categorie moet de categorienaam bevatten. 

— elke categorie mag tot 100 woorden bevatten. 

— de laatste DATA van elke categorie moet /” zijn. 

— na de /* van de laatste categorie moet DATA /"* volgen. 

Houd je hoofd koel! 


Programma 


190 REM HNHK HH NN NHK HNHK NH 

110 REM #xx GUILLOTINE 3% 

120 REM MNH N NN HN HNK HN HHK 

150 SCREEN 1,2:WIDTH 2@:CLEAR S@00 

140 DIM T&£(9),WE(S, 100,1) ,„MX(9) ,Z(24) 

158 A$=CHRE(&HIF) +CHRE (&H1F) +CHRE (&H7) +CHRE (HZ) +CHRE (HG 
) +CHRE (&H6) +HCHRE (HZ) HCHRE (HHZ2) +CHRE (HZ) HCHRE (BH2) HCHRE ( 
VHO) HCHRE (HO) +CHRE (HHD) +HCHRE (HO) HCHRE (LHD) +CHRE (HHD) 
160 AFZAEHCHRE (&HFB) +CHRE (HEB) +CHRE (&HFB) +CHRE (&HDB) +CHR 
E (HDO) +CHRE (HCA) HCHRE (LHA) HCHRE (LH4D) +CHRE (LHD) +CHRE (% 
HO) +CHRÉ (HO) +CHRE (&HA) HCHRE (WHO) HCHRE (HO) HCHRE (2HO) CHR 
£ (HO) : SPRITEE (1) =At 

17A AE=CHRE (&HFF) +CHRÉ (&HFF) +CHRE (HEF) +CHRE (2H66) +HCHRE ( 
H6é) HCHRE (RH7F) HCHRE (2H7F) +CHRE (HG) +CHRE (&H46) +CHRE (4H7 
FE) +CHRE (&HZE) HCHRE (&HO6) HCHRE (HHAO) HCHRE CRHEF) +CHRE (HF) 
+CHRE (&HF ) 

180 A$=AE+CHRE (&HFF) +CHRE (&HFF) +CHRE (&HFF) +CHRÉ (&H64) +CHR 
E (HLO) +CHRE (&HFE) +CHRE (HHFE) +CHRE (&H66) +HCHRE (HAA) +CHRE ( 
VHEE) +CHRE (&HFE) +CHRE (HGO) HCHRE (22H66) +CHRE (HFC) HCHRE (%H 
F8) +CHRÉ (&HFO) : SPRITES (2) =At 

190 AE=CHRE (RHO) HCHRE (HO) +CHRE (KH) +HCHRE (HHD) +CHRE CHE) + 
CHRE (&H7) +CHRE (&HF) +CHRE (&HF) +CHRE (UHF) HCHREE (&H7) HCHRE (&H 
ZD +CHRE (&HE) HCHRE (LHB) HCHRE (LHB) +HCHRE (LHB) +CHRE (HD) 

200 Af=ZAE+CHRE (&HB) +CHRE (HO) +CHRE (XHG) +HCHRE (&HO) +CHRE (XH 
CO) +CHRE (2HEB) +CHRE (LHFD) +CHRE (HHFO) +CHRE (&HF OD) +HCHRE (&HEO 
) HCHRE (RHEO) HCHRE (HCA) +CHRE (ZHO) HCHRE (HHD) HCHRE (RHO) HCHR 
£ (HO) : SPRITE (5) =At 

218 AS=CHRE (&HFEF) +CHRE (HEF) +CHRE (&HEF ) +CHRE (HEF) +CHRE (2, 
HEF) +CHR$ (&HFF) +CHRE (SHFF) +CHRE (&HFF) +CHRE (HEF) +CHRE (2HF 
FE) +CHRE (&HFF) +CHRE (&HFF) +CHRE (&HFF) +CHRE (HEF) +CHRE (&HFF ) 
+CHRE (&HFF) 

220 AfzAEHAE: SPRITES (4) =At 

250 Af=ZCHRE CHEF) +CHRE CHEF) +CHRE (&HEF) HCHRE (HEI) +CHRE (2 
HEF) +CHRE (SHEER) +CHRE (&HFF) +CHRE (&HFF) +CHRE CHEF) +CHRS (HE 
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FE) +CHRE (XHEF) HCHRE (&HFC) +CHRE (&HEO) +CHRE (HCE) +CHRE (&HO) + 
CHRÉ (HO) 

240 AFZASLCHRE CHHEF) +CHRE (RHFFE) +CHRE (&HEE) +CHRÉ (HEF) +CHR 
F(HHEE) +CHRE (BHEF) +CHRE (HEF) +CHRE (RHFC) +CHRE (&HEO) +CHRE ( 
“HCD) +CHRE CLHO) +CHRE (&HO) +CHRE (RHO) HCHRE (RHO) HCHRE (ZHO) : 5 
PRITES (5) =Af 

250 GOSUR 1690 

260 GOSUR 220 

270 GOSUE 440 

280 GOSUB 580 

290 FOR Wel TO MX(TS) :WE(TS,W, B) =" "NEXT W 

200 GOSUR 750 

210 GOSUE 780 

520 IF UW=MX(TS) OR I$='"n" OR I$="N" THEN GOTO 280 ELSE G 
oro 200 

E30 REM #* TITELSCHERM %%% 

240 COLOR 1,7,7 

250 CLS:KEY OFF 

260 LOCATE 8,0:PRINT "*# guillotine #" 

570 LOCATE 1,5:PRINT "Moeilijkheidsgraden: “: PRINT 


58 FRINT * 1. U ziet de nog be=" 

370 PRINT U schikbare letters," 

400 FRINT:FRINT * 2, Heschikbare letters! 
410 PRINT * warden niet getoond." 


420 LOCATE 1,14,0:FRINT "Wat kiest U (1/2)7''s 
450 AEZINFUTE CI) 

440 IF AfZ"1" AND AfZH"E! THEN GOTO 450 ELSE S=VAL (A#) 
450 RETURN 

460 REM ##** DATA INLEZEN %%% 

470 LOCATE 7,20:PRINT "Even geduld A„U.B," 
480 RESTORE 1570 

498 FOR Tet TO 9 

500 READ At 

510 IF Af="/&x! THEN T=T-1s RETURN ELSE T&T) =At 
520 FOR Wei TO 100 

550 READ Af 

540 IF Af="/%'" THEN GOTO 560 ELSE WE(T,W, 1) =Ats MX CT) =MX (T 
perd 

558 NEXT W 

5460 NEXT T 

570 RETURN 

580 REM #x% KEUZE VAN ONDERWERF #3 

5,0 CLS 

6OD LOCATE 1,2:PRINT "KIES": PRINT: PRINT 

418 FOR Wei TO T 

620 PRINT USING " #4 &!'sW,‚T& CW) 

650 NEXT W 

LAD LOCATE Z‚,W+4,Z: PRINT "E Eind Frogramma'” 
650 LOCATE 1,W+7,Z: PRINT "Uw Keuzes 's 

660 IS=INFUTE(1) 

470 IF If="" GOTO 660 

6830 IF If="e!" OR If="E" THEN SCREEN B: CLS: END 
6D WeVAL (TE) 

708 IF Wil OR W2T THEN GOTO 660 

718 TS=W 
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720 RETURN 

750 REM #*%* SELEKTEER WOORD #3 

748 W=INT (RND (TIME) #*MX (TS) ) +1 

750 IF WE(TS,W,O)="c" THEN GOTO 7408 ELSE A$=W$(TS,W, 1) : WE 
(TS‚W‚,@ ="C" 

768 UW=UW+1 

778 RETURN 

780 REM ##** SPEELVELD EN LETTERKEUZE ##* 

79@ CLS 

300 FOR W=i TO 26:2(W) =D: NEXT W 

810 LOCATE 11,@:PRINT "GUILLOTINE" 

828 FOR W=i TO LEN(AS) 

820 LOCATE 11+W,14,@:PRINT "_" 

340 NEXT W 

858 IF S=1 THEN LOCATE 2,23,@: PRINT "ABCDEFGHIJKLMNOPORST 
UVWXYZ'"' 

840 LOCATE 8,11,@:PRINT "Letter Intypen: 

870 F=i1:A=0:B=0 

850 LOCATE 10,21:PRINT * " 

898 LOCATE 19,7,@:PRINT USING "U mag nog ##";F:LOCATE 9,8 
‚„@:FPRINT "fout (en) maken" 

Ad C=B:LOCATE 235,11,@:PRINT * " 

9,10 BEEP:LOCATE 25,11: I$=INPUT$(1) 

20 IF IS<"A" OR I$>"z" THEN GOTO 910 ELSE IF I$>"Z" AND 
I$<'"a'" THEN GOTO 918 ELSE IF I$>="a" THEN I$=CHRE(ASC(IS) 
52) 


950 IF S=1 AND Z(ASC(I$)-64)=1 THEN BEEP: BEEP: BEEP: GOTO 9 


40 LOCATE 25,11,@:FRINT I$ 

958 LOCATE ASC(IS)-463,23,@: PRINT * "sz 

960 GOSUB 1200 

970 IF B=LEN(AS) THEN LOCATE 7,17,@:FPRINT "JUIST! Goed ge 
daan. ":GOTO 1170 

288 IF C=1i THEN GOTO 903 

9D AzA+1 

1000 IF A<=8 THEN GOSUB 1510 ELSE IF A=? THEN LOCATE 35,5, 
@: PRINT CHR$(219) 3 CHR$ (219) 

1018 IF A=1@ THEN PUT SPRITE 4, (48,125) ,1 ELSE IF A=1i1i TH 
EN PUT SPRITE 5, (40,31) ,15 

1028 IF A<12 THEN BEEPF:F=11-A:G0OTO 880 

1058 PUT SPRITE 2, (48,155) ,9:BEEF: FUT SPRITE 5, (40,127) „4 
: BEEP 

1040 REM #** KOP AF 

1058 PLAY "v155s4m4500n40' 

1048 FOR W=35 TO 158 STEP 1:FPUT SPRITE 5, (4@,W):NEXT W 
1070 FUT SPRITE 1,(40,155) ,& 

1080 FOR W=127 TO 155 STEP 1:PUT SPRITE 3, (40,W) :NEXT W 
1098 FLAY "s9m575On1" 

1108 LOCATE 7,145,0:FRINT "NEEN! Het woord is " 

1118 LOCATE 12,18,@:PRINT Af 

1120 GOTO 1140 

1158 REM #%#*#* NOG EENS? #4 

11408 LOCATE 7,21:PRINT "NOG ‘m WOORD (j/m)?7"'z 

1158 I£=INFIUJT$(1) 


11468 IF I%="'j" OR I$="J'" OR If="n" OR IS="N" THEN 1178 EL 
SE GOTO 1150 

1178 REM ##% VOLGEND WOORD #%%% 

118% FOR W=i TO 5:PUT SPRITE W‚(-108,-10):NEXT W 

1198 RETURN 

1208 REM #4 ZOEK LETTER #44 

1210 FOR Wei TO LEN(AS) 

1220 IF If=MID$E(AE,W,1) AND Z(ASC(I#)-64)=1 THEN BEEP: GOT 
0 1250 ELSE IF I&=MID$(AE,W,1) THEN GOSUB 12460 

1250 NEXT W 

1248 Z(ASC(IE)-44) =1 

1258 RETURN 

12608 REM #*# LETTER GEVONDEN 

1278 LOCATE 11+W,14,0:PRINT If 

1280 BEEP 

1290 Caels BeBt1 

1508 RETURN 

1518 REM #x** ZIJKANTEN a 

1328 IF (A/2)-INT(A/2)=0 THEN K=5 ELSE K=2 

13350 IF A<3 THEN R=18 ELSE IF A<5 THEN R=14 ELSE IF A<7 T 
HEN R=10 ELSE R=6 

1540 FOR W=Z TO Z:LOCATE K‚R-W‚O: PRINT CHREÉ(219) 3E NEXT W 
1550 RETURN 

13468 REM #x*% DATA VOOR ZOEKWOORDEN #%% 

1578 DATA Bomen en Planten 

1588 DATA DEN,EIK,HULST , PAMFASGRAS , CONIFEER , TULP , BEUK , BER 
K ‚LELIE, SPAR, HAZELAAR „LINDE ,ELS ,MIMOSA,GLADIOOL , VIOLET , PA 
PAVER 

1598 DATA ROOS ,PRIMULA,DAHLIA,HYACINT ,FALM, IRIS , GERANIUM, 
KLAVER , GRAS , FUCHSIA, CACTUS ,KLAFROOS , ANJELIER, VIOLIER,LEEU 
WEBEK: , ANEMOON 

1400 DATA BEGONIA,HAAGWINDE , PIOEN, PRONKERWT , JASMIJN, FLOX , 
CHRYSANT , RODODENDRON , SNEEUWBAL „LIS, ZINNIA 

1418 DATA /% 

1428 DATA Dieren 

1458 DATA KAT ,HOND,MUIS,KIF ‚MOSSEL , KREEFT , HAAI ‚RAT , DAS , CA 
VIA,KOE,STIER,KALF , BOK „GEIT, GANS „EEND , ZWAAN, EZEL 

1440 DATA OKAPI,OESTER, INKTVIS, BUIZERD,WALVIS,KROKODIL , VL 
IEG,SCHILDPFAD, HAGEDIS , SLANG, KIKVORS , PAD , SALAMANDER 

1458 DATA WALRUS,TIJGER,LEEUW, SLAK , BLOEDZUIGER , MUG ,GIER,A 
REND , VALK , SPECHT , SPREEUW , RAAF ‚MUS , DUIF , MEEUW , VL INDER , MOT 
1468 DATA /% 

1478 DATA Steden (B en NL) 

1488 DATA OUDENAARDE , MECHELEN , BREENDONK , BRUSSEL , BELLEWAER 
DE , RONSE , GENT , KORTRIJK , BRUGGE 

1498 DATA ANTWERPEN ,LUIK , TONGEREN , NAMEN , DINANT , KNOKKE , BLA 
NKENBERGE , VEURNE , LEUVEN , BASTENAKEN 

1508 DATA DELFT , VOLENDAM , ROTTERDAM , AMERSFOORT , ELST , GRONIN 
GEN, VLISSINGEN, BRESKENS , CADZAND , EINDHOVEN , MAASTRICHT 

1518 DATA AMSTERDAM,KATWIJK,LISSE, VLAARDINGEN , UTRECHT ‚HIL 
VERSUM , ALKMAAR , HAARLEM , HEEMSTEDE ‚, BEVERWIJK , BUSSUM, ZEIST , T 
ERNEUZEN, HULST , SITTARD , KERKRADE , DEVENTER , DOET INCHEM , NIJME 
GEN , ARNHEM 

1520 DATA /% 

1558 DATA Steden (Wereld) 
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1540 DATA LONDEN ,PARIJS,LYON,CARDIFF , BRISBANE , MEL BOURNE , J 
OHANNESBURG , SYDNEY , LONDONDERRY , BELFAST 

1558 DATA WASHINGTON, BONN , ZURICH , ROME , MILAAN , CANNES ‚NICE , 
GENEVE , BERN, BERLIJN, STOCKHOLM, DALLAS , CHICAGO , TOK IO 

1560 DATA CAIRO, ISTANBOEL , MOSKOU ‚LIVERPOOL , MANCHESTER 
1578 DATA /% 

1588 DATA Beroemde Namen 

1598 DATA CHURCHILL , SHAKESPEARE , HITLER, SARTRE , PRESLEY , GAG 
ARIN, VERNES , BRONTE ‚, GARIBALDI ,NEWTON, FASTEUR , DISRAEL I ‚NIGH 
TINGALE 

1608 KENNEDY ‚NIXON, REAGAN , MICHELANGELO , RUBENS , REMBRANDT , B 
REUGHEL , BOSCH , DAVINCI , BEETHOVEN , STRAUSS , CHOPIN , HANDEL , BAC 
H‚LISZT , MOZART , DVORAK , WAGNER 

1618 DATA VERDI ,COPERNICUS 

14620 DATA /% 

1650 DATA Eten en Drinken 

1648 DATA APPEL ,PRUIM,MELK , HUTSPOT , STOOFVLEES , VLA, TAART ‚P 
OMPOEN , SPEK , SOES , PATE 

1658 DATA CAKE ‚MELOEN , NOOT , FANNEKOEK. , BIER, BOTER , SELDERIJ, 
SLA, FASTENAAK , KOOL , PREI 

1668 DATA BLOEMKOOL , RAAP , MOSTERD , WATERKERS , RAMMENAS , JENEV 
ER , COGNAC , WHISKY ‚RUM, SANGRIA , WIJN ,WATER ,L IMONADE , RADIJS , B 
OEKWEIT , ERWT , BOON , ROOM 

14670 DATA /% 

14680 DATA /xx 

1690 REM %* MARSEILLAISE 

1708 DATA siSm5@@0418c,14c,18c,14f,f‚g,g, 051 5c,0418a,l4f. 
1718 RESTORE 1700 

1720 FOR A=1 TO 1@:READ If:PLAY I$,‚I$,IS:NEXT A 

1750 FOR Az=i TO 140@O:NEXT A 

1740 RETURN 


Voorbeeld 


GUILLOTINE 


Um ke) 6 
foutdens haken 
Letten Intupen:G 


„IDE 
HEEN! Het woord is 
LINDE 


HOG Zn MOORD Cj-m>7 
H JKLHN APEN Le dn 


4.12 Luchtaanval 


Jouw bommenwerper is geraakt en verliest langzaam hoogte. Je vliegt net boven de 
wolkenkrabbers van een wereldstad. Door de straten razen de vijandelijke pantser- 
wagens, beschermd door de schaduw van de hoog oprijzende gebouwen. Gebruik 
je resterende bommen om de gebouwen beetje bij beetje te vernietigen om je een 
veilige vliegbaan te verzekeren en probeer ook zo veel mogelijk pantserwagens te 
treffen. De uitkomst is onvermijdelijk: je vliegtuig zal te pletter vallen. Maar hoeveel 
punten kun je halen voor het einde? 

Als je denkt een superpiloot te zijn, probeer dan maar een nachtaanval. Stukken 
moeilijker hoor, want door de duisternis kun je de gebouwen helemaal niet zien! Wat 
je wel ziet, zijn de ontploffende bommen en daaruit kun je proberen de hoogte van de 
gebouwen te schatten. 

Per geraakt gebouw krijg je er tien punten bij. Een voltreffer op een pantserwagen 
levert je vijftig punten op. 

Gebruik de spatiebalk om je bommen te droppen. 


Programma 

190 REM HH HHK HINKE HH HHN HH 

110 REM se LUCHTAANVAL 

120 REM MHM HIHIHI MNN HN NH 

130 KEY OFF:SCREEN 2,2: CLS 

148 COLOR 1,5,5 

15@ DIM BC (29) 

168 OPEN "grp:" FOR OUTPUT AS #1 

178 A$=CHRE(&HD) +CHR$ (4HZF) +CHR$ (&HBS) +CHRE (&HBF ) +CHRE ( 
&HFF) +CHRE (&HBF) +CHR$ (&HB2) +CHRE (&HF) +CHRE (&HD) +CHRS (&H 
B) +CHRE (HO) HCHRE (HB) +HCHRE (&HB) HCHRE (HB) HCHRE (HO) +CH 
R$ (&HD) 

180 AS=ZAS++CHRÉ (&HD) +CHRE (&HC7 ) +CHRE (&H7) HCHRE (&HFF) +CHR 
ELKHEF) +CHRE (HEF) +CHRÉ (HHA) +CHRE (&HFO) +CHRE (KHO) HCHRE 
(&HO) +CHRE (HHD) HCHRE (RHO) HCHRE (HD) HCHRE (HO) +CHRE (LHD) 
+CHRE (&HOD) : SPRITEE (1) =2A$ 

198 A$=CHRE (HB) +CHRÉ (HES) +CHRS (&HEB) +CHRE (HEF) +CHRS ( 
HEF) +CHRÉ (&H7F) +CHRÉ (&H2) +CHRSE (&HF) HCHRE (HD) +CHRÉ (HD 
) +CHR$ (&HB) HCHRE (&HD) +CHRE (&HB) +CHRE (HD) +CHRE (&HO) +CHR 
$ (HO) 

200 A$=ZAE+CHRE (&HB) +CHR$ (&HFC) +CHRE (&HIS5) +CHRE (&HFD) +CH 
R$ (&HFF) +CHRÉ (HFD) +CHR$ (&H41 ) HCHRE (HFD) +CHRS (&HB) +CHR 
E(&HD) HCHRE (RHB) +CHRE (&HB) +CHRE (HHD) +CHRE (EHD) +CHRE (LHOD 
) +CHRÉ (&HD) : SPRITE (2) =Af 

218 A$=CHRE (&HD) +HCHRE (B&H) +CHRE (&H7) +HCHRE (&HFF) +CHRE (&H 
7) +CHRE (&H7) +CHRE (HI) HCHRE (&H7F) HCHRE (&HFF) +CHRE (&H7F ) 
+CHRÉ (&HZF) +CHRE (&HZA) HCHRE (RHZA) HCHRE (RHEF) +CHRS (&HO) + 
CHRÉE (&HG) 

220 AFZAELCHRE (HO) HCHRÉ (4HBO) +CHRE (&HFB) +CHRE (&HFC) +CH 
RE (&HEC) +CHRE (HEC) +CHRÉ (&HFO) HCHRE (HEE) +CHRE (&HFF) +CH 
R$ (&HFF) HCHRE (HEF) +CHRE (&HAE) HCHRE (HAA) HCHRE (&HFE) +CH 
R$ (&HB) +HCHREÉ (&HD) : SPRITES (5) ZAE 

230 A$=CHRE (&HD) +CHRE (&H1) +CHRE (&H1F) HCHRE (RHEF) HCHRE (3 
H3EF) +CHRÉ (&HEF) +CHRÉ (&HF) +CHRS (&2H7F) +CHRE (&HFF) +CHRS (&H 
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FF) +CHR$ (&HFF) HCHRE (&HDS) +CHR$ (HSS) +CHRE (&H7F) +CHRE (&H 
@) +CHRE (HD) 

240 A$ZAS+CHRE (&HD) +CHRS (%HBD) +CHRS (&HEO) HCHRE (&HFEF ) +CH 
R$ (&HEO) +CHRE (&HEO) HCHRE (&HBB) +CHRE (RHFE) +CHRE (&HFF) +CH 
R$ (&HFE) +CHRE (&HFE) +CHRS (&HS54) +CHRS$ (HSA) +CHRE (&HFC) +CH 
R$ (&HO) +CHRE (&HD) : SPRITES (4) =A$ 

258 A$=CHR$ (HED) +CHRE (HAD) +HCHRE (HAD) HCHRE (HAD) +CHRE 
(EHD) +CHRE (&HB) +CHRE (RHB) +HCHRSE (RHO) HCHRE (HB) +CHRE (HO) 
+CHR$ (&HD) +CHRE (HD) +CHRE (KHD) +CHRE (HO) +CHRE (LHB) +CHRE 
(HO) 

268 A$=A$+CHRE (&HD) +CHRE (ZH) +CHRE (HD) +CHRE (&HD) +CHRE ( 
HO) +CHRE (HO) +CHRE (HO) +HCHRE (EHD) HCHRE (EHD) HCHRE (HO) + 
CHR$ (&HD) +CHRE (SHB) +CHRE (EHD) +CHRE (HD) +CHRE (HO) +CHRE ( 
HO) : SPRITES (35) =A$ 

278 A$=CHRE (&H41) +CHRE (HA) +CHRE (RHE7) +CHRE (&HE7) HCHRE 
(&HF7) +CHRE (&H7F) HCHRE (RHSF) HCHRE (RHSF) +CHRE (HEF) +CHRE 
(&HLE) +CHRE (2HO) +CHRE (3HO) +CHRE (&HO) +CHRE (HD) +CHRE (HO 
) +CHR$ (&HB) 

290 A$=AS+CHRE (2HO) +CHRE (&HD) +CHRE (&HD) +CHRSE (HO) +CHRE ( 
HAD) +CHRE (&HCO) +CHRE (RHCO) +CHRE (&HCB) +CHRS (HBB) +CHRS ( 
LHD) HCHRE (HD) +CHRE (RHB) +CHRE (&HO) +HCHRE (LHB) +CHRE (HD) + 
CHR$ (&H@B) : SPRITES (4) =A$ 

20 REM #* instrukties 

308 CLS 

518 PRESET (48,0) :PRINT#1,"s%%* LUCHTAANVAL s#%" 

320 PRESET (18,352):PRINT#1, "Gebruik spatiebalk om bomme 
n te lossen. ":PRESET (12,60):PRINT#1," Verkiest u..." 
358 PRESET (352,80) :PRINT#1, "Aanval over dag..….…..1" 

340 PRESET (52,100) :PRINT#1, "Nacht blitz....... 2" 

Sa PRESET (52, 120) 1 PRINTSL, "Eindesesa sensei eaner 

368 A$=INPUTS$(1):IF A$<>"1" AND A$<>"2" AND A$<>"3" THE 
N 240 

378 IF A$="3" THEN CLS:SCREEN @: END 

388 IF A$="1" THEN CL=5 ELSE CL=1 

39@ COLOR 11,CL,CL 

400 REM #* SPEELSCHERM sx 

418 CLS 

420 FOR X=1 TO 25 STEP 2 

430 BC(X)=24- (INT (RND(-TIME) #12) +1) 

448 BC(X+1)=BC(X) 

450 LINE((X+2)#8,185) -((X+5) #B+6, (BC(X) -1)#08+1) ,1,BF 
460 NEXT X 

478 LINE(@,184)-(255,192),14,BF 

488 PRESET (146,0) :PRINT#1, "SCORE" 

490 PRESET (120,0) :PRINT#1, "HISCORE"; HS 

500 PC=10 

518 REM sx RICHTING VLIEGTUIG EN TANKS s% 

520 IF RND(-TIME)<.5 THEN PD=-6:PS=1 ELSE PD=6:PS=2 

558 IF RND(-TIME)<.5 THEN TD=-5:TS=5 ELSE TD=3: TS=6 

540 PX=80:PY=0 

550 TX=100:TY=176 

560 REM #x SPEL 

570 ON INTERVAL=6 GOSUB 1230 

580 ON SPRITE GOSUB 13530 

590 INTERVAL ON 


400 SPRITE ON 

618 SC= 

620 S=STRIG(O) 

650 IF S THEN GOSUB 650 

640 GOTO 620 

658 REM sx BOM LOSSEN 

6468 SOUND @,1:SOUND 1,1:SOUND 7,8:S0OUND 8,8 

670 PY=PY+2 

680 BX=PX:BY=PY+0: Be 1 

698 IF BY>182 THEN B=@: IF HIT THEN 1050 ELSE BEEF:GOTO 


708 XB=INT ((BX+1) /8) +1 
718 IF XB<4 OR XB>29 THEN 698 ELSE BB=XB-3 

720 HB=INT ((BY+1)/8) 

730 IF HESBC(BB) THEN 690 

740 B=0 

758 PUT SPRITE 3, (BX,BY-8),9,4 

7&@ SOUND @,@:SOUND 1,2:SOUND 2,@:SOUND 3,@:SOUND 4,0:5 
OUND 5,@:SOUND &,31:S0UND 7,2 

778 SOUND 9,@:SOUND 1@,16:SOUND 11,@:SOUND 12,50: SOUND 
13,0:FOR X=16 TO @ STEP —-4: SOUND B,X:NEXT X 

788 SOUND 7,0 

790 FX=(XB-1) #8 

800 FY=(HB-1) #8 

818 LINE(FX,FY)-(FX+7,FY+7) „CL ‚BF 

828 BC (BB) =BC (BB) +1 

838 SC=5C+10 

840 INTERVAL OFF 

850 LINE(116,8)- (56,0) ‚CL ‚BF 

848 PRINT#1,SC 

878 INTERVAL ON 

880 REM #*#* VLIEGTUIG TE LAAG? sa 

898 FUT SPRITE 3, (-20,-20) 

900 HIT=0 

918 IF PY>180 THEN 970 

928 PH=INT((PY+1) /8) +3 

930 FOR X=1 TO 26 

940 IF PH>BC(X) THEN GOTO 970 

950 NEXT X 

968 RETURN 

970 REM #* VLIEGTUIG STORT NEER sx 

988 PS=4:PC=9 

990 SOUND @,25@:SOUND 1,1:SOUND 6,30: SOUND 7,55:SOUND 8 


kj 
1000 SOUND @,255:S0UND 1,2:SOUND 6,11:SOUND 7,55: SOUND 


1018 FOR X=1 TO SOO:NEXT X 

1828 INTERVAL OFF 

1930 PUT SPRITE 1, (-20,-20) 

1840 GOTO 1160 

1950 REM xe TANK GERAAKT s%% 

1960 SPRITE OFF 

1078 HIT=@ 

1288 PUT SPRITE 5, (BX,181),9,4 

1893 SOUND @,@: SOUND 1,2:SOUND 2,2: SOUND Z,2:SOUND 4,3: 
SOUND 5,2:SOUND 6£,28:SOUND 7,7 
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1108 SOUND 9,16:SOUND 19,16:SOUND 11,2:SOUND 12,60: SOUN 
D 15,9::FOR X=16 TO @ STEP —-2:SOUND 8,X:NEXT X 

1118 SOUND 7,0 

1120 SC=SC+50 

1154 PUT SPRITE 3, (-20,-20) 

1148 SPRITE ON 

1152 GOTO 840 

1168 REM «* SCORES ax 

1178 IF SC>HS THEN HS=SC 

1188 LINE(218,8)-(184,0) ,CL,BF: PRINT#1 ‚HS 

1198 DRAW "bm15,25":PRINT#1, "OPNIEUW SPELEN (J/N) 7" 
120% BEEP 

1218 Af$=INPUT$(1) 

1228 IF A$<>"J" AND A$<>"j" AND AS<2"N" AND A$<>'n'" THE 
N 1200 ELSE IF Af="N" OR A$="n'" THEN HS=@:GO0TO 290 ELSE 
GOTO 400 

12530 REM “xx SPRITES VERPLAATSEN sx 

1240 PX=PX+PD 

1250 IF PX>255 THEN PX=PX-255 ELSE IF FX<@ THEN PX=255+ 
PX 

1268 PUT SPRITE 1, (PX,PY) „PC,PS 

1270 TX=TX+TD 

1283 PUT SPRITE 4, (TX,TY),6, TS 

1290 PUT SPRITE 5, (TX+88,TY),12,TS 

1500 PUT SPRITE 6, (TX+140,TY) ,15,TS 

15318 IF B THEN BY=BY+5:PUT SPRITE 3, (BX,BY),14,3 

15320 RETURN 

15350 REM sx RAAK Hua 

1540 HIT=-1 

1358 RETURN 


Voorbeeld 


4.13 Valschermspringen 


Een eenzaam eiland middenin de oceaan. Een strand, een kasteel en een boom: 
voor meer is er geen plaats. Af en toe ziet men een blauwe reuzevogel en soms een 
ouderwets vliegtuig boven het eiland vliegen. 

Een hele uitdaging voor een valschermspringer dus, om veilig tussen de boom en 
het kasteel te landen en zo de meeste punten te scoren. Ook op het strand mag 
geland worden, maar dan voor minder punten. Vergeet niet uit te kijken voor de twee 
vliegende hindernissen: ze zijn levensgevaarlijk! In zee landen brengt ook al geen 
punten op! 

Bestuur de valschermspringer met de links-rechts cursortoetsen. 


Programma 


100 REM HRH NN HH HMI HI HMH HH MH HI HH HH 

118 REM #2 VALSCHERMSPRINGEN #3 

120 REM HHN HHNN AHHH HHN HN HA HH HH HI 

158 KEY OFF 

148 CLS:SCREEN 1:WIDTH 29:COLOR 6,1,1 

158 LOCATE 5,0,0:PRINT "#*x* VALSCHERMSPRINGEN #4": PRINT 
168 PRINT " Help een aantal valscherm- springers op ee 
n eiland te komen. ":PRINT " Gebruik hiervoor de horiz 
on-tale cursortoetsen." 


178 FRINT:PRINT " Punten voor landing":PRINT " tussen 
kasteel ":PRINT " en boom: 100" 
188 PRINT " op het strand: 50" 


198 PRINT:PRINT " Het spel eindigt als 18 val-schermspr 
ingers veilig neer- gekomen zijn of na afloop vaneen ze 
kere tijd." 

200 FRINT:FRINT " Pas op voor de toevallige vogel en 
vliegtuig....":PRINT:PRINT:PRINT "Druk RETURN om te beg 
innen. "; 

218 A$=INFUTE(1) 

220 IF A$<2CHR$(1Z) THEN 210 

258 CLS:SCREEN 2,2 

248 IE=CHRE (&HD) +CHRE (&HEZ) +HCHRS (&HED) +CHRE (&HFF) +CHRE ( 
&HEF) +CHRE (&H7F) HCHRE (&H2) +CHRE (&HF) +CHRE (HD) +CHRE (HD 
)+CHR$ (&HD) +CHRE (HB) +CHRE (&HD) +CHRE (HD) +HCHRE (EHD) +CHR 
£ (SHD) 

258 I$=I$+CHR$E (&HO) +CHRE (&HFC) +CHRE (&HIS) HCHRE (&HFD) +CH 
R$ (&HFF) +CHRÉ (&HFD) +CHRE (HA 1) +HCHRÉ (BHFO) +CHRE (EHD) +CHR 
& (HO) HCHRE (HO) HCHRE (EHD) +CHRE (HHD) +CHRE (HD) +CHRE (HD 
) +CHR$ (&HO) : SPRITES (5) =I$ 

268 IS=CHRE(&H1) +CHRE (&H7) +CHRE (&HF) +CHR$ (&H1F) +CHRE (&H 
ZF) +CHRÉ (&H7F) +CHRE (&HES) +CHRE (&HE7) +CHRE (HCC) +CHRS (KH 
88) +CHRE (&H8D) +CHRE (&HD) +CHRE (UHB) +CHRE (HHA) +CHRE (HHD) + 
CHRÉ (HO) 

270 I$=IE+CHRS(&HFD) +HCHRE (&HFC) +HCHRE (&HFE) HCHRE (&HFD) +C 
HRE (&HFF) +CHR$ (&HEZ) +CHR$ (&HF 1) +CHRE (&H18) HCHRE (HC) +CH 
R$ (&HC) +CHRE (&HC) HCHRE (&H1C) +CHRE (&H1C) +CHRE (LHZE) +CHRE 
(HO) +CHRE (HO) : SPRITEF (1) =I% 

288 IS=CHR$ (&H7) +CHRÉ (&H1F) +CHRS$ (&HSF) +CHRE (RHEF) +CHRS ( 


75 


&H24) +CHRE (EH22) HCHRE (HI 1) +CHRS (&HD) +CHRE (&H7) +CHRE (BH 
5) HCHRE (&H1) +CHRE (&HE) HCHRE (&HE) +CHRE (HZ) +CHRE (HZ) +CH 
R$ (&H6) 

290 IF=IE+CHRE(&HEO) HCHRE (HEB) +CHRE (&HFC) HCHRE (&HFC) +C 
HRE (&H24) +CHRS (&H44) +CHR$ (HBB) +CHRE (&HP0) +CHRE (HED) +C 
HRE (&HC@) +CHRE (HBB) +CHRE (2HCO) +CHRE (&HCO) +CHRE (HAD) +C 
HR& (&H40) +CHRE (&H6O) 2 SPRITES (2) =1$ 

300 I$=CHRE(&H18) +CHRE (&H18) +CHRS (&H18) +CHRE (&HZC) +CHRS 
(HBD) +CHRE (&HFF) +CHR$ (HEF) +CHR$ (&HFF) +CHRE (RHID) HCHRE 
(HIS) +CHRE (&HFF) +CHRE (&HEF) +CHRE (&HFF) +CHRE (&HE7) +CHRE 
CHHE7 ) +CHRE (2HE7 ) 

318 I$=I$+CHRE(&HD) HCHRE (HO) +CHRSE (&HO) HCHRE (LHB) HCHRE ( 
SHD) +CHRE (&HB) +CHRE (HD) HCHRS (RHO) HCHRE (HD) HCHRE (HO) + 
CHR$ (&HD) +CHRE (2HO) HCHRE (ZHO) +CHRE (EHD) +CHRE (HD) +HCHRE ( 
HO) : SPRITE$ (4) =It 

528 I$=CHRE(&HO) +CHRE (&HG) HCHRE (&HO) +CHRE (&HDB) +CHRS (HE 
8) +CHRS (&H7F) +CHRE (HEF) +CHRE (&HEF) +CHRE (&H7) +CHRE (2H7 ) 
+CHRE (&H7) +CHRE (HH) HCHRE (RHS) +HCHRE (&H1) HCHRE (2HO) +CHRE 
C&D) 

550 I$=I&+CHRE(&HO) HCHRE (HO) HCHRE (HD) HCHRE (KHO) +CHRE ( 
&HFO) +CHRE (&HEF) +CHRE (&HFF) +CHRS$ (&HFO) +CHRÉ (&HCO) +CHRE ( 
HC) +CHRE (&HCO) +CHRE (&HCO) HCHRE (&HEB) HCHRE (&HFD) +CHRS ( 
SHD) +CHRE (&HD) : SPRITEE (5) =IË 

340 I&=CHRE (&HD) +CHRE (HI) +CHRE (&H1) +CHRE (&HE) +HCHRE (&HT 
B) +CHR$ (&H7F) +CHRE (&HFF) +CHRE (HSE) +HCHR$ (HS) +CHRE (HD) 
+CHRE (&HD) +HCHRE (HB) +HCHRE (HO) +CHRSE (UHO) HCHRE (&HO) HCHRE 
(&HD) 

200 If=I$+CHRE (HFD) HCHRE (&HED) +CHRE (&HED) HCHRE (&HCO) +C 
HRE (&HCO) HCHRE (&HFO) HCHRE (&HFF) +CHRE (&HFE) +CHRE (HFD) +C 
HR& (&HD) HCHRS (HO) +CHRE (EHD) +CHRE (EHD) +CHRE (HO) HCHRE (2 
HO) +CHR$ (HD) : SPRITES (4) =I$ 

360 REM xx BEELD BOUWEN se 

378 OPEN "grp:" FOR OUTPUT AS #1 

380 LINE(@,184)-(255,191) ,4,BF 

590 LINE(88,191)-(95,191),10 

400 LINE(92,190)-(95,190) ‚10 

410 LINE(94,189)-(95,189) ‚18 

420 LINE(147,191)-(157,191) ‚10 

450 LINE(147,190)-(152,190) ‚10 

440 LINE(96,191)-(146,191) ,12 

A58 LINE(96,19@)-(111,190) ‚12 

4468 LINE(96,189)-(111,189) ‚12 

470 LINE(99,188)-(111,188) ‚12 

480 LINE(195,187)-(111,187) „12 

490 LINE(184,186)-(118,186) ,12 

500 LINE(114,198)-(148,190) ‚2 

518 LINE(115,189)-(120,189) ‚2 

520 LINE(125,189)-(146,189) ,2 

5358 LINE(124,188)-(145,188) ‚2 

5408 LINE(125,187)-(145,187) ‚2 

550 LINE(138,184)-(142,186) ,2 

564 PUT SPRITE 1,(127,172),12 

57/0 FUT SPRITE 4, (194,17) „9 

580 FRESET (8,0) :PRINT #1, "Punten": PRESET (128,0) :PRINT # 
1, "Sprong" 
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488 
VXe=l 
690 
P-16 
6) +5 
700 
710 


B10 
EN P 
820 
850 
840 
850 
860 
970 
880 
ELSE 
890 
00 
9,10 
920 
950 
948 


1060 
F:RE 
ELS 


REM xx HOOFDLUS 
SP=@: OK=0: SC=0: TM=0 
LINE(192,8)-(63,0) ,1,BF:FRINT#1 ,SC 


LINE(192,8)-(65,0) ,1,BF:PRINT#I ‚SC 
GOSUE 660 

GOSUB 940 

GOTO 600 

REM sx VLIEGTUIG EN VOGEL #a 


BD=5: VX=0: BX=0 

IF RND(-TIME) >.2 THEN P=INT(RND(-TIME)#140) +8: VP=1: 
NT (RND (-T IME) #8) +4 

IF RND(-TIME)>.2 THEN B=INT(RND(-TIME)#140)+8: IF B> 
AND BíP+16 THEN 690 ELSE BP=255: BX= INT (RND (-T IME) « 


REM xx VALSCHERM #%% 

PV=@ 

FX=INT (RND(-TIME) #220) +20 

PY=1 

REM #4 SPRONG #%% 

ON INTERVAL=? GOSUB 1070:0N SPRITE GOSUB 1130 
INTERVAL. ON: SPRITE ON 

SP=SP+1 

LINE (208,8)-(168,0) ,„1,BF:PRINT #1,S5FP 

TM=TM+1 

S=STICK (0) 

IF S>5 AND S<9 THEN PV=PV-.5 ELSE IF S>1 AND S£5 TH 
VePV+,. 5 

IF HIT THEN GOTO 910 ELSE IF PY<174 THEN GOTO 790 
IF FX<@ THEN PX=PX+255:G0T0 830 

INTERVAL OFF 

IF PX>255 THEN PX=FPX-255:G0T0 850 

IF PX<85 OR FX>15@ THEN GOSUB 115@:G0T0 920 
INTERVAL OFF 

IF FX<109 OR FX>1359 THEN PLAY "s4m250n50": SC=SC+50 


FLAY "s1m2400n28": SC=5C+108 
OK =OK+1 
LINE (88,8)-(56,0) ,1,BF:PRINT#1,SC 
HIT=0 
GOSUB 1190 
IF OK<18 AND TM<350@ THEN GOTO 660 ELSE RETURN 


REM sx SCOREBORD s% 


SPRITE OFF 

IF TM>350@ THEN TM=3500 

PRESET (63,63) :PRINT#1, "Ti jd "; TM 
PRESET (63,79):PRINT#1,"Sprongen ";SP 


PRESET (65,95) :PRINT#1, "Geland ok "3 OK 


SC=3500-TM+SC#OK 
PRESET (63, 111):PRINT#1, "Score ";SC 
IF SC>HS THEN HS=SC 

PRESET (63,128):PRINT#1 , "Top ";HS 


PRESET (65,151):PRINT#1, "OPNIEUW (J/N) 7" 
A$=INPUT$ (1) 

IF A$="j" OR A$="J" THEN LINE(220,160)-(63,63) ,1,B 
TURN ELSE IF Af="n" OR Af='"N" THEN CLS:SCREEN @: END 
E GOTO 1050 


1073 REM #* sprites verplaatsen 

1088 FX=FX+PV 

1893 PY=PY+5:PUT SPRITE 2, (PX,PY) ‚11 

1198 IF VX<>@ THEN PUT SPRITE 3, (VP‚,P) „6: VP=VP+VX 
1118 IF BX<>@ THEN PUT SPRITE 5, (BP,B),5,BD: BP=BP-BX: IF 
BD=5 THEN BD=6 ELSE BD=5 

1128 RETURN 

1150 REM xx COINCIDENCE #*% 

1148 SPRITE OFF: INTERVAL OFF 

1158 HIT=-1 

1160 PLAY "s10m7n55" 

1178 GOSUB 1190 

1183 RETURN 

1190 REM sx SPRITES VERWIJDEREN 3% 

1208 FUT SPRITE 2, (-20,-20) 

1218 PUT SPRITE 3, (-20,=20} 

1220 PUT SPRITE 5, (-28,-20) 

1250 RETURN 


Voorbeeld 
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4.14 Jantje Wip 


Jantje is een ventje dat hogerop wil. Zoals zovelen moet hij helemaal onderaan de 
ladder(s) beginnen. Help de moedige knaap om het hoogste niveau te bereiken en 
stuur hem met de cursortoetsen naar rechts, langs de ladders omhoog als je de kans 
ziet en vanaf het derde scherm ook naar beneden als dat nodig is. Pas echter op voor 
de aanstormende auto’s, bokshandschoenen en ander ongedierte. Gebruik de spa- 
tiebalk en zorg dat Jantje (want juist dáárom heet hij Wip’) over al deze bedreigingen 
heen wipt. Wees snel, want nauwelijks is Jantje terug op de begane grond, of hij 
moet zich reeds bukken voor een voorbijzeilende vuurbol. Als alle hindernissen ge- 
nomen zijn, kan Jantje op het hoogste niveau de laatste ladder op. Let nu op je score 
en ook op de hoogste score die in beeld verschijnt. Op naar het volgende scherm. Je 
moet nu sneller reageren, want de hindernissen komen sneller opdagen. 

Eén ding is zeker: als Jantje sterft, gaat hij rechtstreeks naar de hemel! 


Programma 


100 REM HEMI H HH HH IH HH HHK ie H 

110 REM st JANTJE WIP #x% 

120 REM HMMM NHN MHI HH HEI NIK 

158 DIM D(4,5) 

148 DATA 1735,210,225,2,0,125,10,28,3,1,77,218,225,4,2,29 
‚10,28,1,3 

150 KEY OFF 

168 CLS:SCREEN 1:WIDTH :5@:COLOR 6,1,1 

178 LOCATE 7,4,@:PRINT "#3 JANTJE WIP ##'": PRINT: PRINT 
180 PRINT " Gebruik de cursortoetsen om Jantje langs zo 

veel mogelijk verdiepingen te helpen. Hij kan niet ac 

hteruit lopen maar wel springen — hiervoor moet" 

198 PRINT “men de spatiebalk indrukken." 

200 PRINT:PRINT " Vanaf het derde scherm kan Jantje de 
ladders afdalen." 

218 FRINT:PRINT " Punten: ":PFRINT * Fer verdieping: 20" 
PRINT "' Fer scherm : Tijdsbonus'" 

220 FRINT:FRINT:PRINT "Druk op RETURN om te starten" 

250 AS=INPUTE(1) 

248 IF A$<2CHR$(15) THEN 230 

258 CLS:SCREEN 2,2 

268 I$=CHRE(&HO) +CHRE (&HB) +CHRE (RHS) HCHRE (&H7) +CHRE (LHC) 

+CHR$ (&H18) +CHRE (&HEB) +CHRE (&H7F) +CHRE (HHFF) +CHRE (&HEF) + 

CHR$ (&HFF) +CHR$ (HEF) +CHRS (2H44) +CHRE (&H44) +CHRE (HEE) +C 

HRS (HEE ) 

278 I$=1$+CHRE(&HD) +CHRE (HD) +CHRE (&HCO) +CHRE (&HED) +CHRE 
HSO) +CHRE (&H18) HCHRE (RHC) HCHRE (HHFE) +CHRS (HEF) +CHRE (3 

HEF) +CHR$ (&HFF) +CHR$ (&HFF) +CHRE (&H44) +CHRE (HAA) +CHRE (2H 

EE) +CHR$ (&HEE) : SPRITES (1) =If 

2838 I$=CHRE(&HD) HCHRE (RHO) +CHRE (HI) +CHRE (&HIE) +CHRE (HZ 

1) +CHRÉE (&H40) +CHRE (2:HBO) +CHRE (&HIC) HCHRE (&HEBF) +CHRE (&HFF 
)+CHRE (&H7F) +CHRE (&H7ZF) +CHRE (&H7E) HCHRE (KHEB) +CHRE (4H2B) 

CHRE (&HES) 

290 I= 1E+CHRE (&H2) +CHRE (&H1O) HCHRE (&HEC) HCHRE (4H57) +CHR 

& (BH7E) +CHRÉE (&H7F) +CHRE (3H7D) +CHRE (2H78) HCHRE (&H7B) +HCHRE 
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CHEFS) +CHRE (EHF B) +CHRE (&HFD) +CHRS (&HFD) +CHRE (LHB) +CHRE (2 
H4) +CHR$ (&H2) : SPRITES (2) =1$ 

308 IE=CHRE (HEF) HCHRE (&HZEF) +CHRE (HIE) +CHRE (&H1) +CHRE (3 
H7F) +CHR$ (HEF) +CHR$ (&HFF) +CHR$ (&HFF) +CHR$ (&HFF) +CHRE (&H 
FF) +CHR$ (&HFF) +CHR$ (HEF) +CHRS (&HFF) +CHRE (&H7F) +CHR$ (&HZ 
8) +CHR$ (&HD) 

210 I$=I+CHRE(&HBO) +CHRE (&HCO) +HCHRE (&HEO) +CHRE (HFD) +CH 
R$ (HEF) +CHRE (&HFF) +CHRE (HEF) +CHRE (&HFF) HCHRE (&HFF) +CHR 
&(HHFEF) +CHRE (&HFEF) +CHRE (&HFEF) +CHRE (&HFO) HCHRS (&HEO) +HCHRE 
CUHCO) +CHRE (HO) : SPRITES (5) =15 

320 IS=CHRE (&HD) HCHRE (&HO) +CHRE (XHBO) +CHRE (LH4D) HCHRE (BH 
ZE) HCHRE (RH 17) HCHRE CRHLF) HCHRE (RHIF) +CHRE (HHSE) HCHRE (HG 
A) HCHRE CRH42) HCHRE (RHB) +CHRE (RHO) HCHRE (RHO) HCHRE (HHD) +C 
HRS C&2HO) 

230 IES IEHCHRE (HO) HCHRE (&HO) HCHRE (HA) HCHRE (BHE) HCHRE (2 
HCD) +CHRÉ (&HEE) +CHRE (&HFEC) HCHRE (&HFB) HCHRE (HH SB) HCHRE (EH 
14) +CHRE (RHAZ) HCHRE (&H4 1) +CHRE (&HD) +CHRE (LHA) +CHRE (EHD) + 
CHRÉ (&HO) : SPRITE (4) =1$ 

340 IS=CHRE(&H7) +HCHRE (&H1F) HCHRE (RHEF) +CHRE (&H7F) HCHRE (2 
H7F) +CHRE (&HFF) +CHRS (BZHEF) +CHRE (&HFF) +CHRS (&HFF) +CHRE (RH 
FE) +CHR$ (HEF) +CHRE (&H7F) +CHRE (&H7F) HCHRE CHEF) +CHRE (ZH 1 
F) +CHRS (&H7) 

250 I$=I$+CHRE(&HED) +CHRE (&HFB) HCHRE (&HFC) +CHRE (&HFE) +CH 
R$ (&HFE) +CHR$ (&HFF) +CHRE (RHFF) +CHRE (EHFF) +CHRS (HEF) +CHR 
ECKHFF) +CHRE (&HEF) +CHRE (&HFE) HCHRS (&HFE) +CHRSE (&HFC) +CHRE 
C&HFB) +CHRE (HED) : SPRITES (4) =1f 

260 IS=CHRE(&HO) HCHRE (&HB1) HCHRE (&HAE) HCHRE (&H2 1) HCHRE (2 
H1B) +CHRE (&H9) HCHRE (&H7) HCHRE (HE) HCHRE (HZ) HCHRE (HF) +C 
HRE CHF) +CHRE (EHF) +CHRE (&HFO) +CHRE (UHF) +CHRE (HE) HCHR 
$ (&HO) 

378 I$=IE+CHRE(&HCH) +CHRE (&HFO) HCHRE (HEC) HCHRE (&HCO) +CH 
R$ (&HEO) +CHRÉ (&HED) +CHRE (&HED) +CHRS (&HCO) HCHRE (&HCO) +CHR 
$ (&HBB) +HCHRE (&H70) HCHRE (&H7B) +CHRE (UHSE) HCHRE (LHE) HCHRE 
CUHIC) +CHRE (HH18) 2 SPRITEE (7) =If 

380 IS=CHRE (&HE) HCHRE (BHE) +CHRE (&H1F) HCHRE (HEE) +HCHRS (RH 
77) +CHRE (&H64) +CHRE (HHEO) HCHRE (RHFEF) +CHRE (&HFF) +CHRE CHF 
C) +CHRE (&H7B) +CHRE (&H7 6) +CHRE (&HZ7) HCHRE (RHIF) HCHRE (BHE) 
+CHRE (HE) 

390 I$=IE+CHRE(HHCO) HCHRE (&HED) HCHRE (&HBO) +CHRE (HO) +CHR 
£ (HSB) HCHRE (4HEO) HCHRE (&HFO) +HCHRE (&HED) HCHRE (&HCO) +CHRE 
(HED) +HCHRE (HF) HCHRE (&HCO) +CHRE (&HG) HCHRE (&HIC) HCHRE (2 
HFO) +CHRE (&HCO) : SPRITES (B) =1E 

400 IE=CHRE (UH) HCHRS (HH) HCHRE (&HE) HCHRE (BHE) +CHRE (EHS) 
+CHRE (HEF) +CHRE (HHEF) HCHRE (&H2E) HCHRE (&H2E) HCHRE (HE) +C 
HRE (&H:3) CHR (&HZ) +HCHRE (&HZ) HCHRE (RHIE) HCHRE (RHIE) +CHRE ( 
&H1O) 

418 I$=1$+CHRE(&HBD) +CHRE (&HCO) +CHRE (HBO) +CHRE (&HBD) +CH 
R$ (&H10) +CHRE (&H1D) +CHRE (&HFO) +HCHRE (HFD) +CHRE (EHBO) +CHR 
$ (&HBD) +CHRE (HED) +CHRE (HHEB) HCHRE (&H20) +CHRE (&H20) HCHRE 
CH 20) +CHRE (HED) : SPRITES (9) =IE 

420 I$=CHR$(&HE) +CHRE (&HE) HCHRE (HE) +CHRE (HZ) HCHRE (EHS) 
+CHRS (&HE) +CHRS (HF) +CHRE (2HB) +HCHRS (&HB) HCHRE (HE) +CHRE ( 
LHE) +CHRS$ (HZ) HCHRE (RHS) HCHRE (RH) HCHRE (KHT) HCHRE (HHS) 
450 I$=1$+CHRE(&H3D) +CHRE (2HCO) +CHRE (&HBO) +CHRE (HBD) +CH 
R$ (&HOB) +CHRE (HD) +CHRE (2HBD) +CHRE (&HED) +CHRE (HED) +CHRE ( 
HAB) +CHR$ (&HBO) +CHRE (&HBD) +CHRE (HHBB) +CHRÉ (&HBO) HCHRE (% 
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HEB) +CHRE (&HCO) : SPRITES (10) =1$ 
448 IE=CHRE (HE) HCHRE (RH7) +CHRE (&H3) +CHRE (HE) +HCHRE (HI 1 
) +CHRÉ (RH) +CHRE (&HIF) +CHR$ (RHLF) +CHRS (&H3) +CHRS (&HE) +C 
HRE (HIE) +CHRÉ (&HLE) +CHRÉ (&H10) HCHRE (&H1O) +CHRE (HLO) +CH 
R$ (&HEO) 

A50 1$=1$+CHRE (&HBO) +CHR$ (&HBO) +CHRE (&HBO) +CHRE (KHBO) +CH 
R$ (&HBO) HCHRE (&HFS) +HCHRÉ (&HFB) +CHRÉ (HBB) +CHRÉ (&HBB) +CHR 
$ (&HBB) +HCHRE (KHBO) HCHRE (&HBO) +CHRE (2HBO) +CHRE (&HFO) +CHRE 
(&HFO) +CHR$ (XH10) : SPRITES (11) =1$ 

468 IS=CHRÉ (&HI) +CHRE (&H7) +CHRE (&H3) +CHR$ (&H3) HCHRSE (RH 1) 
+CHRÉ (BHE) HCHRE (&HF) +CHR$ (&HF) +CHR$ (BHE) +CHRS (&HB) +CHRÉ ( 
VHZ) +CHRÉ (&H3) +CHRE (HZ) +HCHRE (HI) HCHRE (&H7)+CHRE (2H7 ) 
470 I$=1$+CHR$ (&H8O) +CHRÉ (2HBO) +HCHRÉ (&HBB) +CHRE (HBO) +CH 
R$ (&HBO) +HCHRE (&HOO) +HCHRE (HED) +CHRÉ (&HED) +CHR$ (&HAD) +CHR 
& (HAD) +CHRE (&HBD) +CHRE (&HBO) +CHRÉ (HBO) +CHRE (HBO) +CHRE 
(&HBO) +CHRÉ (&HBO) : SPRITES (12) =1% 

ABO IE=CHRE (KHE) HCHRS (RHO) HCHRE (HE) HCHRE (RHS) HCHRE (HH 1) 
+CHRÉ (&H3F) +CHRS (&H7F) +CHRE (&H7F) +HCHR$ (&HE7) +CHRS (&H7) +C 
HRE (&H7) HCHRSE (RHG) +CHRE (HC) HCHRE (RHC) +CHRE (HHC) +CHRÉE (2H 
18) 

490 1$=18+CHRE (&HBO) +CHRE (&HO) +HCHRE (&HBB) CHR (HBO) +CHR 
£ (&HBO) +HCHRÉ (&HO) +CHRE (&HFB) HCHRE (&HFC) +CHRS$ (&HEC) +CHRÉ ( 
&HCE) +CHRS (&HCB) +CHRE (RHCO) +CHRE (HAD) +CHRS (2HAB) +CHRS (% 
H&B) HCHRE (&HIO) : SPRITE (13) =14 

508 I$=CHRE (2HZ) +CHR$ (&HO) +CHRE (RHI) +CHRÉ (HE) +CHRE (KHE 3 
) +CHRE (2H79) +CHRE (HHEF) +CHRE (RH LF) +HCHRE (&H7) +CHRE (HH7) +C 
HRS (&H7) HCHRE (&H6) +CHRE (BHE) HCHRE (RHC) +CHRE (&HC) +HCHEE (&H 
18) 

510 1$=18+CHR$ (&HBD) +CHRE (&HD) +CHRÉ (2HBO) +CHRE (&HBD) +CHR 
& (&HIE) +HCHRS$ (&HEC) +CHRE (&HFB) +CHR$ (&HFO) +CHRE (&HCO) +CHRE 
(&HCO) +CHRÉ (&HCO) HCHRE (&HCO) +CHRE (RHB) HCHRE (HAB) +CHRÉ ( 
&H60) +CHRE(&HEO) : SPRITES (14) =1E 

520 FOR F=1 TO 4 

530 FOR C=1 TO 5 

540 READ D(F,C) 

55@ NEXT C 

560 NEXT F 

570 FOR Y=47 TO 191 STEF 48 

580 LINE(A,Y)-(255,Y) ,7 

590 NEXT Y 

600 LINE(17,0)-(17,47) 

618 LINE(31,0)- (51,47) 

620 LINE(17,96)-(17,143) 

638 LINE(E1,96)-(31,143) 

640 LINE(216,48) -(216,95) 

650 LINE(230,48) -(238,95) 

668 LINE(216,144) -(216,191) 

4670 LINE(230,144)-(230,191) 

680 FOR Y=7 TO 29 STEP 8 

698 LINE(17,Y)-(31,Y) 

700 NEXT Y 

7108 FOR Y=55 TO 87 STEF 8 

720 LINE(216,Y)-(238, Y) 

730 NEXT Y 

740 FOR Y=103 TO 135 STEP 8 

758 LINE(17,Y)-(31,V) 
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760 NEXT Y 

778 FOR Y=151 TO 184 STEF 8 

788 LINE(216,Y)-(230,Y) 

790 NEXT VY 

800 L=i 

8318 OPEN "grp:" FOR OUTPUT AS #1 

820 REM #%* HINDERNISSEN #% 

850 IF PT:HS THEN HS=FT 

840 PT=@:L=1 

850 VN=5 

83460 VA=4:V7=5: VE=6 

870 X1=2354:Y1=172 

889 X2=99: YL2=124 

8990 X5=8: Y5=77 

MA X4=D: Y4= 54 

10 X5=129: Y5=E4 

20 X8=49: YB=E 

950 X7=154: Y7=E5 

DAA XA=14:YL=104 

950 GOSUB 1950 

raD X9=29:YP=172:PUT SPRITE 9, (X9,YD) „15,9 

70 HIT=Or: CCD: F1 

9838 ON SPRITE GOSUR 2060 

990 ON INTERVAL=8 GOSUB 1950 

1000 SPRITE ON 

1818 INTERVAL ON 

1020 XV=4 

1059 PA=9:SN=10 

1040 INTERVAL OFF 

1850 LINE(214,8)-(64,0) ,1,BF:COLOR S:PRINT#1,USING "hist 
Hi H SC HRH 7 HS, PT 

1968 INTERVAL. ON 

1070 REM #* SPEL 

1080 IF HIT THEN GOTO 1520 

1090 IF PA=9 THEN PA=10 ELSE IF PA=1@ THEN FA=9 ELSE IF 

FA=11 THEN PA=12 ELSE FA=l1 

1100 IF HIT THEN GOTO 1520 

1119 CC=CC+1:S=STRIG (OG) 

1120 IF S THEN GOTO 1588 ELSE S=STICK (@) 

1158 IF S=1i OR (S=5 AND L22) THEN GOTO 1200 ELSE IF S5=7 
OR S=5 THEN GOTO 1140 

1148 IF HIT THEN GOTO 1520 

1158 GOTO 1070 

1160 XP=XP+EN 

117% IF SGN(SN)=-1 AND X9<0 THEN X9=254 ELSE IF SGN(SN)= 
1 AND X9>256 THEN X9=0 

1188 PUT SPRITE 9, (X9,Y9) , „PA 

119@ IF HIT THEN GOTO 1520 ELSE GOTO 1274 

1200 REM #4 LADDER #4 

1210 IF S=1i THEN VYV=l ELSE YV=-1 

1220 IF X9PED(F+(YV=-1),2) OR XPED(F+(YV=-1),5) THEN 1970 
250 FLAY "16s58Bm45An45" 

1240 FOR Y9=Y9 TO Y9-4B4SEN(YV) STEF -B&SGN(YV) 
1258 PUT SPRITE 9, (X9,V9) 

12460 IF HIT THEN 1520 

1270 NEXT Y9:Y9=Yr+B4SCN (YV) 
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1280 
1290 
1520 
1518 
1520 
1550 
1540 
13552 
1540 
1570 
1580 
1590 
1408 


IF Y9<2@ THEN GOSUB 1700:G0T0 870 
F=D(F ‚4 (YV=-1)) 

PT=PT+20*SGN (YV) 

INTERVAL OFF 

LINE (224,8)-(176,0) ,1,BF:PRINT#1,USING "##E#H"; PT 
INTERVAL ON 

SN=-SN 

PA=18-SGN (SN) 

FUT SPRITE 9,, ‚PA 

GOTO 1070 

REM sx JANTJE SPFRINGT #4% 

PLAY "lés12msaansg” 

FOR Y9=Y9 TO Y9-24 STEP -4:PUT SPRITE 9, (X9,YD) 1 IF 


HIT GOTO 1520 


1419 
1420 
1450 
1440 
1458 
1460 


XFX +5SCN (SN) 

IF X9>255 THEN X9=X9-255 

NEXT Y9 

XP XD ERBEN (SN) 

FLAY "1658n48" 

FOR Y9=Y9 TO YI#+24 STEP 4:PUT SPRITE 9, (X9, YP) EIF H 


IT GOTO 1520 


14660 


XFX P+ 2EECN (SN) 

IF X920 THEN X9=255-X9 

NEXT Y9 

PUT SPRITE 9, (9, YI) 

GOTO 1070 

REM sx JANTJE DOOD #* 

PIT SPRITE 9, (N99, YI, 8 

FLAY “"s@mS@ZAn1" 

REM ##% SCOREBORD ##x 

GOSUB 1890 

PA=15 

Fei 

PRESET (76,108):PRINT#1, “OPNIEUW 7" 

FRESET (48,120):PRINT#1, "SPATIEBALK INDRUEKEN" 
PRESET (Z2,168):PFRINTH1, "(Druk S om te stoppen)" 
XP=120: YP=100 

IF PA=15 THEN PA=14 ELSE PA=13 

PUT SPRITE 9, (X9,Y9) ,15,PA 

FLAY "1525@m1000N4ON40" 

IF STRIG(@) THEN LINE(74,188)-(149,1146) ,1,BF:LINE(4 


8,120) -(205,127) ,1,BF:LINE(32,168)-(207,175) ‚1,BF: BEEP: G 
oro 824 


1678 
1680 
1690 
1700 
1710 
1720 
1720 


Af=INKEYE 

IF A$="s" OR A$="S" THEN BEEP:CLS: SCREEN O: END 
Yr=Y9-4: GOTO 14650 

REM a VOLGEND NIVEAU se 

C=INT (400% (Lx, 5) -CC) #10 

IF C<8 THEN C=:9 

GOSUE 1890 

Lel +1 

FRESET (46,80) : COLOR 18: FRINT#1, "Bonuspunten: ";C 
FRESET (6@,104) : COLOR 3: PRINT#1, "Naar niveau's 
FOR N=20 TO 50 STEP 1@:PLAY "s11mz@On=en; "NEXT N 
FOR Net TO SOO:NEXT N 

LINE (200,88) - (46,80) ‚1 ,EF 


1800 LINE (180,112)-(40,104) ‚1,BF 
1819 CC=0 

1820 F=1 

1850 FT=PT+C 

1840 VN=VN+1 

1858 IF L>4 THEN VB=V8+1 

1868 IF L>3 THEN V7=V7+1 

1870 IF L>2 THEN Vó=V6+1 

188% RETURN 

1890 REM *** SPRITES VERWIJDEREN VAN SPEELVELD ##% 
1900 INTERVAL OFF:SPRITE OFF 

1918 FOR S=1 TO 12 

1920 PUT SPRITE S,(-20,-30) 

1930 NEXT S 

1948 RETURN 

1950 REM #** HINDERNISSEN #x% 

1960 X1=X1-VN:X2EX2+UN: XE=XE-VN: K4EX4HVNE XS=X5+UNE XO K6 + 
Vb: X7=X7-V7: XB=X8+VB 

1978 PUT SPRITE 1, (X1,Y1),13 

1980 FUT SPRITE 2, (X2,Y2),2 

1990 PUT SPRITE 2, (X3,Y3) „8 

2000 PUT SPRITE 4, (X4,Y4) ‚14 

2018 PUT SPRITE 5, (X5,YS) ‚14,4 

2020 IF L>3 THEN PUT SPRITE 8, (X8,YB) „15 

2030 IF L>2 THEN PUT SPRITE 7, (X7,Y7) „5 

2040 IF Lè1 THEN PUT SPRITE &, (X6,Y6) ‚10 

2058 RETURN 

20468 REM ##* COINCIDENCE xx 

2070 HIT=-1 

2080 RETURN 


Voorbeeld 


4.15 Crunchman 


Het is eng om in een doolhof gestopt te worden, met vier kannibalen van geesten op 
je hielen. Bovendien ben je gedwongen zo veel mogelijk klontjes te eten, die overal 
in dit doolhof zijn rondgestrooid. Gelukkig zijn in de vier hoeken de krachtpillen te 
vinden, die je supersterk maken en je in staat stellen om de spoken schrik aan te 
jagen. Ze vluchten nu van je weg en als je ze kunt pakken, worden ze verbannen 
naar hun hol. Niet voor eeuwig echter, want ze komen al spoedig terug. 

Jullie hebben het al door, dit is het klassieke scenario van een spelletje dat in de 
lunaparken zo veel aantrekkingskracht uitoefent. 

Je hebt hier te maken met een MSX-BASIC-versie, de eerste voor zover wij weten. 
Het spelletje werd geschreven in screen 1. Crunchman is gemaakt van een karakter 
dat telkens wordt verplaatst. Dit heeft het voordeel dat de klontjes meteen ‘opgege- 
ten’ worden, als crunchman daar voorbijkomt. De spoken daarentegen zijn sprites. 
Daarom kunnen ze over de klontjes heen zweven. Het nadeel van deze techniek 
merk je op het ogenblik dat het overlappen van crunchman en de spoken moet wor- 
den vastgesteld. Dan is er namelijk een omrekening van de hoge naar de lage reso- 
lutie nodig. Een ander nadeel in screen 1 is het afwezig zijn van een BASIC-bevel om 
de kleuren van de karakters te wijzigen. Hier moesten we dus een vpoke-instructie 
gebruiken om de nieuwe waarde rechtstreeks naar het videogeheugen te schrijven 
(zie regelnummers 580-600). Voor de rest gebruiken we de voorgedefinieerde grafi- 
sche MSX-karakters (regelnummers 410-570). Om deze gemakkelijk op je toetsen- 
bord terug te vinden, volgt hier een opsomming. 

karaktercode 219 — toets graph + p 

karaktercode 192 — toets graph + shift + O 

karaktercode 195 — toets graph + u 

karaktercode 249 — toets graph + g 

karaktercode 196 — toets graph + a 

Veel knabbelgenot! 


Programma 


190 REM HHN HHN HI HH HE 


118 REM see CRUNCHMAN 33% 
120 REM HHM HH IH HM Hd 


148 DATA sexxx CRUNCHMAN 23e 

158 DATA KIES EERST TUSSEN CURSORTOETSEN 
1468 DATA EN JOYSTICK. ALS JE JOYSTICK KIEST 
17@ DATA GEBRUIK DAN JOYSTICK EEN. 

188 DATA HET IS DE BEDOELING OM ALLE 

198 DATA BOLLETJES OP TE ETEN. 

208 DATA JE KAN DE SPOKEN DOEN VLUCHTEN 

218 DATA DOOR DE ENERGIEPILLEN IN DE 4 

228 DATA HOEKEN OF TE ETEN. 

238 DATA GOOD LUCK EN FAS OP VOOR DE SPOKEN. 
240 DATA DRUK OF EEN TOETS OM TE STARTEN 
250 CLS:SCREEN @:WIDTH 37:COLOR 15,4,4 

260 KEY OFF 
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270 
<80 
290 
200 
210 
220 


= 
35 


240 
550 
560 
370 
280 
390 
400 
410 
420 
458 
440 
450 
440 
470 
480 
490 
504 
510 
520 
ke’) 
540 
550 
z60 
570 
580 


FOR I=1 TO 12 
READ T& 

LOCATE INT (37-LEN(T$)) /2,R: PRINT Té:R=R+2 
NEXT 

IF INKEY${>""THEN 320 ELSE 310 

REM xx CRLINCHMAN 

DATA &H7e,&Hdb ,&Hdb „KHE „BHEF „HHA, &HIS ,&HIG 
CR=6637 

ON STOP GOSUB 2100 

STOP ON 

COLOR 1,14,14 

CLS:SCREEN 1,0:T=0:WIDTH 28:ST=0 

COLOR 7,14,1 

DEFINT A-Z 


ERINT' emi iki Ear eeen Ent 
VPOEE 81945,0: "KLEUR SPATIE 


590 VFOKE 8216,81: "KLEUR DOTS 

400 VPOKE 8192,225: "KLEUR CRMAN 

618 FOR AD=8197 TO 8205: VPOEE AD,177:NEXT AD ‘KLEUR LET 
TERTEKENS 

620 IF F THEN 670 ELSE LOCATE @,20:FPRINT"GEBRUIK JE EEN 
JOYSTICK? J/N" 

650 KE=INKEY# 

640 F=l 

650 IF K&="J" OR Kez" j" THEN X=1 ELSE IF K&="N"OR Kt$='n 


“THEN X=0 ELSE 6:50 


640 
670 
heks hs) 
60 
700 
718 
72 

7.50 
40 
750 
760 
770 
780 
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LOCATE @, 20: FRINT" 

REM ##%* PLAATS CRMAN 3% 
CR=6657 :VPOKE CR,Z 

VPOEE 19%,&H2 

REM %%#* SPRITE DEFINITIES xx 
C=0 

FOR I=t TO 4 

FOR AD=14256+C TO 14556+7+C 
READ H 

VPOKE AD,‚H 

NEXT 

C=C+8: RESTORE 550 

NEXT 


790 REM #*% PLAATS DE SPOKEN #x% 

848 Ki=104:R1=56 

819 K2=104:R2=56 

820 K3=104:RI=56 

850 K4=104:R4=54 

840 E1=8:E2=2:EZ=15:E4=10 

858 LOCATE 24,2:PRINT"SC" 

8348 LOCATE 24,6:PRINT"HISC'" 

878 REM #** SPOOK 1 xx 

888 Fi=((CR-4144) -INT((CR-6144) /52) #32) 

898 IF(R1/8)S=(CR-6144) /52 THEN O=VPEEK ((6144+(R1/8) #52 
)+52+K1/8): IF O=219 THEN 910 ELSE Ri=R1+8:G0T0 930 

VAB OEVPEEK ((6144+(R1/B) 432) -Z24+K1/8): IF OL2219 THEN Ri 
=R1-8:G0T0 950 

918 IF(K1/8)<=F1 THEN O=VPEEK ((6144+(R1/8) #32) +1+K1/8): 
IF G=219 THEN 920 ELSE Ki=K1+8:G0T0 950 

920 O=VPEEK ((6144+(R1/B) 52) -1+K1/8) EIF O£2219 THEN K1= 
K1-8:G0T0 950 

950 PUT SPRITE @,(K1,R1),E1,@: GOSUB 1140 

VAB REM #3 SPOOK 2 He 

95 IF (K2/B)Z=F1 THEN OEVPEEK ((6144+(R2/B) #52) +K2/B+1) 
IF Q=219 THEN 970 ELSE K2=k2+8:G0T0 990 

VED OEVPEEK ( (6144+(R2/B) #52) +K2/B-1): IF ZF219 THEN K2= 
K2-8:G0T0 990 

978 IF(R2/8)=(CR-6144) /22 THEN O=EVPEEK ( (61444 (R2/8) #52 
)+352+K2/8): IF Q£>219 THEN R2=R2+8:G0T0 990 

988 OEVPEEK ( (6144+(R2/B) #32) -52+K2/8): IF O=219 THEN 101 
Q ELSE R2=R2-8:G0T0 990 

990 FUT SPRITE 1,(K2,R2),E2,1:GOSUB 1140 

1008 REM #** SPOOK 5 xx 

1010 IF(R3/8) >(CR-6144) /52 THEN GEVPEEK ( (6144+(RZ/8) #52 
)-52+K E/B): IF G=219 THEN 1050 ELSE RE=R2-8:G0T0O 1050 
10209 GEVPEEK ( (6144+(RZ/B) #52) +52+KE/B) 2 IF OL2219 THEN R 
ZeRZ+6:G0T0 1450 

1850 IF(K3/8)>F1 THEN Q=VPEEK ( (6144+(RZ/B) #52) -1+K5/8): 
IF Q=219 THEN 1040 ELSE K3=K35-8:G0T0 1050 

1040 G=VPEEK ((6144+(R5/8) #52) +1+K3/8) 2: IF OS2219 THEN KZ 
=K2+8:G0OTO 1050 

1058 PUT SPRITE 2, (K3,R3),E 5,2: GOSUB 1140 

10460 REM #x** SPOOK 4 Ht 

1070 IF (K4/8) >F1 THEN Q=EVPEEK ((6144+(R4/B) #52) +K4/8-1) 
:IF Q=219 THEN 1990 ELSE K4=k4-8:6G0T0 1110 

1089 O=VPEEK ( (4144+(R4/B) EA) +K4/B+1) 2 IF OE2219 THEN K4 
=K4+8: GOTO 1110 

1898 IF(R4/8) >(CR-6144) /52 THEN O=VPEEK ( (4144+(R4/8) #52 
)-32+K4/8) : IF Q£2>219 THEN R4=R4-8:G0OT0 1110 

1108 O=VPEEK ((6144+(R4/8) #52) +52+K4/8): IF Q=219 THEN 88 
@ ELSE R4=R4+8:GOT0O 1110 

1118 PUT SPRITE 3, (K4,R4),E4, 5: GOSUR 1140 

1120 SW=SW+1: IF SW=8 THEN GOSUE 1970: SW=0 

11:50 GOTO 880 

1140 REM #x*% VERFLAATS CRMAN 

1150 DESTICK (X) 

11460 IF D=i THEN WEVPEEK(CR-52): IF WS2219 THEN VFOKE CR 
‚32:CR=CR-E2: VPOKE CR,2:G0T0 1200 
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1170 IF D=5 THEN WEVPEEK(CR+1): IF W£>219 THEN VPOKE CR, 
Z2:CR=CR+1: VPOKE CR,2:G0T0 1200 

1188 IF D=7 THEN WEVPEEK(CR-1): IF W<>219 THEN VFOKE CR, 
32: CR=CR-1: VPOKE CR,2:G0T0 1200 

1198 IF D=5 THEN W=VPEEK(CR+32): IF W£>219 THEN VPOKE CR 
‚32: CR=CR+52: VPOKE CR,2 

1208 IF W=7 THEN GOSUB 1270: ‘dot 

1218 IF W=196 THEN 1440: ‘energiepil 

1220 IF CR-6144=R1/8#352+K1/B OR CR-6144=R2/8432+K2/8 OR 
CR-6144=R5/8452+K 5/8 OR CR-6144=R4/BE2+K4/8 THEN 1240 
1230 RETURN 

1240 REM #* GEPAKT 

1250 PLAY"ols1i@m4bagfde'" 

1268 LOCATE 18,2@:PRINT"GEPAKT!":GOSUB 1590 

1270 REM #** TELLER 

1280 T=T+1 

1290 SC=T+ST 

1508 IF HI<SC THEN HI=SC 

1510 LOCATE 25,4: PRINT SC: W=0 

1520 LOCATE 235,8:PRINT HI 

1558 FLAY"obs8m11152g" 

1540 IF T>201 THEN GOSUB 1560 

1350 RETURN 

1560 REM %* END 

1278 LOCATE 10,19:PRINT"HOERA, " 

1:288 LOCATE 1,20:PRINT"JE HEBT ALLES OPGEGETEN, " 

1590 LOCATE 4,21:FRINT"NOG EEN SPELLETJE?" 

1400 K&$=INKEYE 

1410 IF K&$="J"OR K$="j"THEN 580 ELSE IF K&$=!N"OR K$=!'n' 
THEN 2100 ELSE 140 

1420 FUT SPRITE @, (K1,R1),15,@: GOSUB 1140 

1458 RETURN 

1440 REM #%** VLUCHT SPOKEN #ax 

14508 PLAY"o7s1l4mi2gfedc" 

1460 VPOKE 6349,219:VPOKE 64135,219 

1470 FOR CL=15 TO 1 STEP =21 COLOR,CL,CL: FOR D=i TO 50: N 
EXT D:NEXT CL:VFOKE 8219,868 

1480 FOR VT=1 TO 10 

1498 Fi=((CR-6144) -INT((CR-6144) /52) #52) 

1500 IF VT=8 THEN PLAY"oZs14mi@abcd" 

1518 IF VT=9 THEN PLAY"o8s1@mbabcd'" 

1520 REM %%#* VLUCHT SPOOK 1 a 

15258 IF(R1/B)S=(CR-6144) /32 THEN O=VPEEK ((6144+(R1/B) #5 
2)-32+K1/8): IF Q=219 THEN 1540 ELSE Ri=R1-8:G0T0 1570 
1540 IF(R1/8) >(CR-6144)/52 THEN O=VPEEK ( (6144+(R1/8) #52 
)+352+K1/8): IF Q=219 THEN 1550 ELSE Ri=R1+8:G0T0 1570 
155@ IF (K1/8)<=F1 THEN O=VPEEK ( (6144+(R1/8) #52) +K1/8-1 
): IF G=219 THEN 1560 ELSE Ki=K1-8:G0T0 1570 

1568 IF (K1/8)>F1 THEN O=VPEEK ((6144+(R1/8) #52) +K1/8+1) 
:IF Q=219 THEN 1570 ELSE Ki=K1+8 

1573 PUT SPRITE @,(K1,R1),4,0: GOSUE 1800 

15808 REM «** VLUCHT SPOOK 2 

1598 IF (K2/8)<=F1 THEN O=VPEEK ((6144+(R2/8) #52) +K2/8-1 
): IF Q=219 THEN 1600 ELSE K2=K2-8:G0T0 1650 

1608 IF (K2/8)2F1 THEN QO=VPEEK ((6144+ (R2/0) #52) +K2/8+1) 
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IF Q=219 THEN 1618 ELSE K2=K2+8:G0T0 14650 

1618 IF(R2/8) <= (CR-6144) /52 THEN O=VPEEK ( (6144+(R2/8) #35 
2)-52+K2/8): IF O=219 THEN 1420 ELSE R2=R2-8:G0T0 146350 
1628 IF(R2/8) >(CR-6144) /52 THEN Q=VPEEK ( (6144+(R2/8) #52 
)+32+Kk2/8): IF Q=219 THEN 1658 ELSE R2=R2+80:G0T0 146250 
1658 PUT SPRITE 1,(K2,R2),4,1:G0SUB 1800 

1648 REM sx VLUCHT SPOOK 5 xx 

1650 IF(R3/8) S= (CR-6144) /52 THEN O=VPEEK ( (41444 (R3/8) #5 
2)-52+KE/8): IF Q=219 THEN 1448 ELSE R3=R5-8:G0T0 1690 
1668 IF (K3/B)<aF1 THEN O=VPEEK ( (6144+(R5/8) #32) +K5/B-1 
js IF Q=219 THEN 1670 ELSE K3=KZ2-8:G0T0 14690 

14670 IF (R3/8) >(CR-6144) /32 THEN O=VPEEK ( (6144+(RZ/B) #52 
4524/08 IF Q=s219 THEN 1480 ELSE R3=RZ+0:G0T0 14690 
14680 IF (K/B) 2F1 THEN O=EVPEEK ((6144+ (RZ/0) KEE) +K3/BH1) 
IF Q=219 THEN 1690 ELSE KZ=K5+8 

1699 FUT SPRITE 2, (K3,R3) ,4,2:G0SUB 1800 

1708 REM sx VLUCHT SPOOK 4 xx 

1710 IF (K4/8)<{=F1 THEN QO=VPEEK ( (6144+(R4/8) #52) +K4/8-1 
)z IF Q=219 THEN 1720 ELSE K4=K4-8:G0T0 1750 

1720 IF(R4/8) <= (CR-6144) /32 THEN G=EVPEEK ( (6144+(R4/8) #5 
2)=-52+K4/8): IF Q=219 THEN 1750 ELSE R4=R4-8:G0T0 1750 
1738 IF (K4/8)>F1 THEN G=VPEEK( (6144+(R4/8) #52) +K4/8+1) 
:IF Q=219 THEN 1740 ELSE K4=K4+8:G0T0 1750 

1740 IF(R4/8) >(CR-6144) /52 THEN O=VPEEK ((6144+(R4/8) #52 
)+52+K4/8): IF G=219 THEN 1750 ELSE R4=R4+8:G0T0 1750 
1750 PUT SPRITE 5, (K4,R4),4, 35: GOSUB 1800 

1748 NEXT VT 

1770 VPOKE 64135,192:VPOKE 6549,195 ‘plaats deurtjes 
1788 VPOKE 8219,119 

1790 GOTO 870 

1800 REM sx VERPLAATS CRMAN a 

1818 D=STICK(X) 

1820 IF D=i THEN WEVPEEK(CR-32): IF W<2>219 THEN VPOKE CR 
‚32:CR=CR-52: VPOKE CR,2:G0T0 1840 

1858 IF D=3 THEN WEVPEEK(CR+1):IF W<2219 THEN VPOKE CR, 
Z2:CRECR+1: VPOKE CR,2:G0T0 1860 

1840 IF D=7 THEN W=VPEEK(CR-1): IF W£2219 THEN VPOKE CR, 
S2:CRECR-1: VPOKE CR,2:G0T0 18460 

1850 IF D=5 THEN WeVPEEK(CR+32): IF WZ2219 THEN VPOKE CR 
"Sar CRECRHI2E VPOKE CR,2 

1840 IF W=7 THEN GOSUB 1270 

1870 REM #** OMZETTING FLAATS SPOKEN IN LAGE RESOLUTIE 
HH 

1880 IF CR-6144=K1/8452+K1/8 THEN K1i=184i:R1=56:G1=1: GOS 
UB 1950 

1890 IF CR-6144=R2/8452+K2/8 THEN K2=104:R2=56: G2=1: GOS 
UB 19:50 

1900 IF CR-&144=RE/B8B452+K 5/8 THEN K3=104:R3=56:G3=1: GOS 
UB 19:30 

1918 IF CR-4144=R4/8432+K4/8 THEN K4=184:R4=56: G4=1: GOS 
UB 1950 

1920 RETURN 

1958 REM xx SPOOK GEPAKT ##%* 

1948 PLAY"o2s1i2m4@deee" 

195@Q ST=ST+20 
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19460 


RETURN 


1970 REM “xx SWAP #%x 

19838 SWAP R1,R2:SWAP K1,K2: SWAP E1,EZ 
1990 SWAP RE,R4: SWAP KZ,K4: SWAP EZ,E4 
2008 RETURN 

2018 FOR H=8 TO 14 STEP 2 

2024 FOR J=1i TO 20 STEP 2 

2050 S$="s'"+STRE (H) 

2044 ME="m"+STRE (IJ) 

2050 SO$="06"+SE+MEH"1 E27" 

2068 PLAY SO% 

2078 PRINT H‚J 

2080 FOR DEL=1 TO 50: NEXT 

2090 NEXT :NEXT 

2100 SCREENG:COLOR 1,14,14 

2118 FOR AD=143556 TO 14268: VPOKE AD,O: NEXT AD 
2128 CLS 

Voorbeeld 
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4.16 Dokter Snor 


Dokter Snor is professor aan de Universiteit van Geldstad. In zijn privé-laboratorium 
aan de Muntstraat zoekt hij sedert jaren naar het recept om geld te maken. Eindelijk 
is het hem gelukt! Hij heeft het drankje samengesteld waaruit de dollars groeien. 
Spijtig genoeg heeft onze oververmoeide professor zijn drankje omgegooid en de 
vloeistof heeft zich overal in het lab verspreid. Tot overmaat van ramp blijkt nu dat de 
dollars giftig zijn, zodat Dr. Snor ze niet eens kan oprapen. Bovendien is Woofer, de 
anders zo makke boxer van de professor, stapelgek geworden. Hij loopt steeds 
maar rondjes met de wijzers van de klok mee. Gelukkig blijkt Woofer immuun te zijn 
voor het dollargif en kan de dollars apporteren, als hij maar in de goede richting ge- 
dreven wordt. Dus gaat de prof. in de weg staan en zorgt dat de hond bij de groene 
biljetten komt. Als dit niet snel genoeg gaat, sleurt de professor meubels en wanden 
door het lab of breekt snel de bestaande muurtjes af! 

Enkele tips om het spel te spelen. Dokter Snor bestuur je met de vier cursortoetsen. 
Als je op de spatiebalk drukt, kan onze prof. muurtjes bouwen. Als je nog eens drukt, 
verliest hij vermogen en kan hij zelfs muurtjes verwijderen. 

Mijdt de elektrische buitenmuren en de biljetten. Haast je want bij twintig rondjes van 
Woofer is het spel uit! 

De grafische karakters zijn: 

28 voor de buitenwanden (toets graph + x) 

15 voor de binnenwanden (toets graph + z) 

Ik wens je nog een vette bankrekening en hopelijk blijft de dollar sterk op de wissel- 
markten. 


Programma 


100 KEM HMMM HH HH HH HIHI HE 
118 REM #**DOKTER SNOR 
120 REM HHM NIN KN HIN HHK 
1:58 DATA Bestuur Dr.Snor met de vierscursortoetsen. ,Stuu 
r Woofer naar de dollars, en incasseer., 

148 DATA Pas op voor de elektrische omheining, en raak 

elf niet aan de dollars., Ze zijn giftig! 

15@ DATA Druk op de spatietoets om muurtjes,te bouwen of 
af te breken. 

168 DATA DRUK OF DE SPATIETOETS OM TE STARTEN 
170 KEY OFF 

180 SCREEN @:WIDTH 40 

198 CLS 

208 COLOR 11,1,1 

218 FOR I=1i TO 11:READ A$ 

228 LOCATE 1+INT(4G-LEN(AS)) /2‚R 

250 R=R+2: IF I=1@ THEN R=22 

248 PRINT A$ 

250 NEXT I 

260 KE=INKEY$ 

278 IF K$=" " THEN 280 ELSE 2460 

2830 SCREEN 1:WIDTH 20 

298 DATA ZC2CECFFO0240018 
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3508 DATA 24245C185C5C5C18 

518 T=i 

320 READ SN$,HN$ 

330 FOR AD=8 TO 15:VPOKE AD,VAL (*&H"+MIDS (SN$,T,2)) : T=T+ 
2: NEXT AD 

240 Tei 

350 FOR AD=16#8 TO 16%8+7:VPOKE AD,VAL ("&H"+MIDS (HNE,T,2 
))s T=T+2i NEXT AD 

260 
3570 


4 
57@ ON STRIG GOSUB 1243 
588 STRIG(@) ON 
5% C1=52:C2=15 
600 CLS 
610 RESTORE 560:LOCATE 0,0 
628 FOR I=1 TO 21:READ M$:PRINT ME:iNEXT I 
&3@ COLOR 15,1,1 
648 VPOKE 8195, 129 
658 VPOKE 8195, 209 
640 VPOKE 8194,129 
678 VFOKE 8194,49 
680 REM ##FLAATS PROFESSOR ##%* 
6990 SN=6144+ELRI1H16 
700 VPOKE SN, 1 
710 REM #xFPLAATS DE HOND 
720 VPOKE 6144+52#7+10,16 
758 REM #**LOGICA HOND» 
748 H=b144+5247+10 
750 O=VPEEK (H+1): IF Q>28 THEN VPOKE H,‚ 32: H=H+1: GOSUB 860 
:GOTO 750 
768 OEVPEEK(H+52): IF Q>28 THEN VPOKE H‚ 32: H=H+Z2: GOSUB 8 
&@:GOTO 740 
778 Q=VPEEK(H-1): IF Q>28 THEN VPOKE H‚32:H=H-1: GOSUB 360 
:GOTO 770 
780 O=VPEEK (H-52): IF Q>28 THEN VPOKE H‚32:H=H-32: GOSUB 8 
60: GOTO 780 
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„80 

990 

1040 
1010 
1020 
@ EL 
1050 
1040 
eg. Lj 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
122 

230 
1240 
250 
1260 
1270 
1280 
1290 
1300 
1310 


REM #*&VERSCHIJNEN VAN DE DOLLARS %#% 

YaRND (=-T IME) 

ZERND (-T IME) 

VPOKE b144+INT(Z&19+1) #352+INT (ZR25+2) , 56 

NeN+1 

GOTO 750 

REM&**VERFLAATS DE HOND 

VPOKE H‚16 

FLAY"v2t255s15l64a" 

IF G=56 THEN NeN-1:SC=SC+1000 

LOCATE 1,22:PRINT N3SC 

IF N=20 THEN 1040 

D=ESTICK (@) 

IF D THEN 950 ELSE RETURN 

VFOKE SN,C1 :GOSUB 1290 

ON D GOSUB 950,940,970,980,990,1000, 1010, 1920: RETURN 
SN=ESN=52: GOTO 1020 

SN=SN-51:G0OT0 1020 

SN=SN+1:G0OT0 1020 

SN=SN+55: GOTO 1920 
SN=SN+52:GO0T0 1020 

SN=SN+51:G0T0 1020 

SN=SN-1:G0T0 1020 

W=VPEEK(SN): IF W=28 THEN 1088 ELSE IF W=36 THEN 112 
SE VPOKE SN,1 

RETURN 

N=0:SC=@: LOCATE 1,18:PFRINT "Je werkt niet hard geno 


LOCATE 8,11: PRINT "HERBEGINNEN'!" 

REM #*#*BOODSCHAPPEN #2» 

GOTO 1570 

LOCATE 5,10:PRINT"Je hebt de elektrische" 
LOCATE 5,11:PRINT"omheining geraakt" 
GOSUR 1180 

GOTO 1570 

LOCATE 5,1@:PRINT"Je hebt de giftige" 
LOCATE 5,11:PRINT"dollars aangeraakt" 
GOSUB 1180 

GOTO 1570 

REM ##&SCREEN FLASH&%% 

N=0: 5C=0:GOTO 610 

REM s%%AANRKAE ING % 

FOR K=20 TO 255 STEF 2 

SOUND @,K 

SOUND 1,0 

SOUND 8,10 

NEXT K 

SOUND 2,0 

RETURN 

REM ##*PLAATS MUURTJES OF NIET 
SWAF C1,C2 

RETURN 

REM se HUF s 

FOR K=255 TO 247 STEP -8 

SOUND @,K 
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1528 SOUND 1,0 

1:550 SOUND 8,10 

1540 NEXT K 

1558 SOUND @,0 

1548 RETURN 

1570 REM #xEINDEss 

1580 LOCATE 2,19 

1598 PRINT"NOG EEN SPELLETJE ? J/N" 

1408 A$=INKEY#$:IF A$="J"OR A$="j" THEN 3560 ELSE IF A$="N 
“ OR Af='n" THEN CLS:END ELSE 1400 


Voorbeeld 
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4.17 XSM-patrol 


Ooit meegemaakt dat je planeet — als je die al eens gehad hebt — aangevallen werd 
door een stelletje ruimtevaartuigen? En dat je, fier neergeplant in de commandopost 
van je patrouilleschip, de zeer verantwoordelijke opdracht kreeg je volk te bescher- 
men en te verdedigen tegen de snode aanvallen uit de vierde dimensie? Welnu, fiere 
ruimtekrijgers, hier is jullie kans! Inderdaad, om de twintig seconden verschijnt een 
nieuwe vloot van deze agressievelingen aan de horizon van je TV-scherm of monitor 
en begeven zich naar Totoxambia, de hoofdstad van je roemrijke, maar o zo kwets- 
bare, rijk met de bedoeling om daar onrust, dood en vernieling te zaaien. Gelukkig 
beschik je over een krachtig laserkanon, bijgenaamd ‘de steekstraal', waarmee je 
niet alleen tijdelijk de vloot tot stilstand brengt, maar hun schepen ook tot de aller- 
kleinste deeltjes desintegreert. 

O ja, nog even dit: de aanvallers worden steeds sneller en vervelender. 

Bestuur je XSM met de omhoog- en omlaag-cursortoetsen en activeer de steek- 
straal met de spatiebalk. Nog veel voltreffers toegewenst! 


Programma 


100 REM HMH NMH HN MM INI HH 

119 REM xx XSM-PATROL #4 

120 REM MHM NHN HHA HAI HH HH 

1:58 DEFINT A-Z 

148 CLEAR 800 

158 DIM SF#(12) 

160 OPEN “grp:"FOR OUTPUT AS #1 

178 COLOR 15,1,1 

188 CLS sSCREEN 2,2 

198 IN=A:V=1 

200 SP& (0) =CHRÉ (2HD) +CHRE (HD) +CHRE (2HBD) +CHRE (&HFB) +C 
HRE (HED) +CHRÉ (&H78) +CHRE (HEE) +CHRE (HH7F) +CHRE (2H7F) + 
CHRÉ (&HZE) +CHR$ (&2H78) +CHRE (&HAD) +CHRE (&HFB) +CHRE (2/HBO) 
+CHRS (HO) +CHRE (HZ) 

218 SPE (1) =CHRE (&HO) +CHRE (HD) +CHRE (&HD) +CHRE (3HO) CHR 
$ (HO) +CHRE (ZH) +CHRE (HO) +CHRE (LHEF) +CHRE (&HEF) +CHRE ( 
SHB) HCHRE (HO) +CHRE (LHB) +CHRE (HO) HCHRE (RHO) +CHRE (LHO) 
+CHRÉ (&HD) 

220 SP$ (2) =CHRÉ (&H7) +CHRE (&H6) +CHRE (HG) +CHRE (&HIE) +CH 
RE (LHA) +CHRE (&HIE) +CHRE (HZC) +CHRE (HH7ZE) HCHRE (&HFE) +CH 
R$ (&H7C) +CHRE (&H1E) HCHRE (RHG) HCHRE (&HIE) HCHRE (&HA) +CHR 
& (HE) +CHRE (2H7 ) 

250 SP& (5) =CHR$ (&HD) +CHRE (HD) +CHRE (HHD) +CHRE (&HO) +CHR 
£ (HO) +CHRE (LH) +CHRE (&HD) +CHRE (LH) +HCHRE (HD) HCHRE (22H 
B) +CHRE (HO) +CHRE (&HB) +CHRE (HD) +CHRE (HO) +CHRE (HO) +C 
HR& (HO) 

240 SPE (4) =CHRÉE (&HCO) +CHRE (HC) +CHRE (&HS) HCHRE (4HE) +C 
HRE (&HCB) +CHRS (2HCO) HCHRE (&HE) +CHRE (HZ) 

250 SPE (5) =CHRE (&HE) +CHRE (HZ) +CHRE (HHCO) HCHRE (&HCO) +C 
HRE (HHC) +CHRE (2HE) HCHRE (&HCO) +CHRE (HCA) 

260 SP& (6) =CHRE (&H1) +CHRE (BHT) +CHRE (&HBO) +CHRE (HBD) +C 
HRE (&H 1) +CHRE (3H 1) +CHRS (HBO) +CHRE (HED) 
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ON STRIG GOSUB 7:50 

ON SFRITE GOSUR 870 

ON INTERVAL=IN GOSUR 690 

CLS: SCREEN 2,2 

SH=10: COLOR 15,1,1 

IN=6r Vel: C=0 

RKQ=08: K1=240 

INTERVAL OFF 

LINE (255,10) -(20,2) ,„1,BF:PRINT #1, "shuttles";sSH;s SF 
"treffers"; C'SCORE 

FUT SPRITE @, (10,R0) „15,0 
SPRITE (0) =SP4 (@) +SP4 (1) 
SPRITES (1) =5PE (2) +SP4 (5) 
SFRITEE (2) =SF£ (2) +SP$ (5) 
GPRITEE C5) =S (2) +SF 4 (5) 
SPRITES (4) SP 4 (2) +SPE CA) 

SPRITEE (7) =S CA) +SPE CH) SPE CH) +OPS C5) 
SPRITES (5) =S 4 (4) +SF 4 (4) +SFE (4) +54 (4) 
SPRITE (6) =SP4 (5) +SP& (5) +SF$ (5) OPE (5) 
SPRITEE (7) =SPE (6) +SPE (4) SPE (6) +GFE (6) 
LINE (@,0) — (255, 0) 

LINE(@,11)- (255,11) 
LINE(@, 191) (2554 191) 

PUT SPRITE 74 (0,250) „04,7 

PUT SPRITE 8,(0,190) „B, 7 

INTERVAL OFF«:STRIG(@) OFF 
R1=98% (RND (TIME) ) +10 

REERL+ (AZERI) /E 

R3ER2E CI 7ZB-RI)/5 


9% 


550 R4=RI+(172-RI)/3 
560 IF C>5 THEN IN=50/C+2:V=C/10 

570 IF C>4@ THEN GOSUB 1050 

580 INTERVAL ON:STRIG(@) ON:SPRITE ON 

590 REM #*#* HOOFDLUS #4 

600 KL=INT (RND (-TIME) #11) +2 

618 FOR K1=240 TO B STEP -V 

628 PUT SPRITE 1, (K1+8,R1) „KL, 1 

630 PUT SPRITE 2, (K1,R2) ‚KL, 2 

648 PUT SPRITE 3, (K1,RD) ‚KL, 3 

650 PUT SPRITE 4, (K1+8,R4) ‚KL ,4 

660 NEXT Ki 

478 GOTO 510 

GED REM #*#* BEWEEG SHUTTLE «*« 

498 D=STICK (0) 

708 IF D=1 THEN RO=RO-24V ELSE IF D=5 THEN RO=RO+34V E 
LSE RETURN 

718 FUT SPRITE @,(10,RO) „15,0 

720 RETURN 

730 REM #4 STEEKSTRAAL ##x 

748 SOUND &,25:S0OUND 7,2:S0UND B,16:SOUND 9,16: SOUND 1 
B, 16:S0UND 12,5 

758 SOUND 13,7 

760 FL=RO+8 

770 LINE(28,FL)-(K1+16,FL) ‚10 

780 LINE(28,FL) -(K1+16,EL) ‚1 

7908 IF RO=>R1-B AND ROCR1+9 THEN R1=192:C=C+1: GOSUB 11 
20 

800 IF RO=>R2-8 AND ROLR2+9 THEN R2=192:K2eK1+17:C=C+1 
:GOSUB 1130 

810 IF RO=>RI-B AND ROSRI+9 THEN R3=192:KE=eK1+34:C=C+1 
:GOSUB 1130 

820 IF RO=>R4-B AND ROCR4+9 THEN R4=192:K4=K1+51:C=C+1 
:GOSUB 1130 

830 INTERVAL OFF 

840 LINE(234,10)-(218,2) ,1,BF:PRINT #1,C ‘score 

850 INTERVAL ON 

8348 RETURN 

870 REM #** ONTPLOFFING #% 

880 SH=SH-1 

898 SPRITE OFF 

900 FUT SPRITE @, (K@,RO) ,8,4 

910 SOUND @,2:SOUND 1,8@:SOUND 2,0:S0UND 2,0:SOUND 4,0: 
SOUND 5,@:SOUND &,15:SOUND 7,3 

928 SOUND 9,16:SOUND 18,16:S0UND 11,8:SOUND 12,18: SOUN 
D 13,0 

930 FUT SPRITE 0, (KO,RO) „8,5 

948 FOR X=16 TO @ STEP —1:S0UND 8B,X:NEXT X 

950 FUT SPRITE @, (KO,RO) „8,4 

9&D FOR I=1 TO 3:FOR Iet TO 15 :COLOR I,I,I:NEXT:NEXT 

970 COLOR 15,1,1 

988 FOR SO=1 TO 15:SOUND @,O:NEXT SO 

990 FOR I= TO 4:PUT SPRITE I,(240,192+(I-1) #17) „0,20: 
NEXT 

1000 PUT SPRITE @, (KO,0) „2,20 
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1010 FOR S=Q TO 43:SOUND @,2:SOUND 1,@:SOUND 2,0: SOUND 
2,0:S0UND 4,@:SOUND 5,8:SOUND 4,12:S0UND 7,4 

1220 SOUND 9,14:S0UND 1@,146:SOUND 11,8:SOUND 12,12:S0U 

ND 13,0::FOR X=16 TO @ STEP —.05:SOUND 8,X: NEXT X 

1030 IF SH=@ THEN 1050 

1040 RETURN 220 

1050 REM #** SHUTTLES OP 

1840 INTERVAL OFF 

1878 SCREEN O:WIDTH 40 

1080 LOCATE 2,12 

1090 IF C26@ THEN FRINT"SCHEI UIT! JE HAALT HET HEELAL 
LEEG!" 

1100 IF SH=D THEN PRINT"HELAAS, JE BENT Al JE SHITTLES 
KWIJT!" 

111@ LOCATE 18,22:PRINT "VERDER SPELEN 7? J/N" 

1120 K$=INKEY$: IF K$="J" OR K$="j" THEN 300 ELSE IF K$ 
ztN" OR K$="n" THEN END ELSE 1120 

1130 REM #* TREFFER #*% 

1148 COLOR 11,11,11 

1150 PLAY"O&L16V12S11M400A" 

11468 COLOR 15,1,1 

1178 RETURN 


Voorbeeld 


: 
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4.18 Vang 


Vang is een spelletje dat een zekere behendigheid, maar ook een zekere strategie 
veronderstelt. Het is gebaseerd op het aloude één-en-twintigen. De bedoeling is in- 
derdaad om een score van éénentwintig te behalen. Daarvoor moet je met een cijfer, 
dat je onderaan het scherm heen en weer kunt sturen, een ander, uit de hemel val- 
lend, cijfer opvangen. De som van de twee wordt bij je score opgeteld. Het onderste 
cijfer kun je vergroten of verkleinen, door op de omhoog-omlaag cursortoetsen te 
duwen. Je verplaatst het natuurlijk met de links-rechts cursortoetsen. Er is slechts 
één goed totaal: éénentwintig. Als je hoger gaat ben je verbrand. Als je het niet haalt 


in vijf beurten is het spelletje uit! 
Veel vangsucces! 


Programma 


REM HN HHM MH HHK HK 

REM sx VANG se 

REM WHN N HH HHA HH 

DATA sassen vang Hiske 

DATA 

DATA vang is een spelletje 

DATA waarin je moet proberen 

DATA een totaal van een en twintig 
DATA te behalen 


DATA vang daarom het vallende cijfer 


DATA met je eigen cijfer onderaan 
DATA verplaats je cijfer met de 
DATA links-rechts cursortoetsen 


DATA druk de spatietoets om verder te gaan 


DATA verander tijdig de waarde 
DATA van je cijfer met de 
DATA omhoag-omlaag cursortoetsen 


DATA de som van de twee getallen 
DATA wordt bij je score geteld 
DATA o ja, nog iets 

DATA je hebt slechts vijf beurten! 


DATA druk op de spatietoets om te starten 


REM xx INSTRUKTIES 
SCREEN@: WIDTH 40 

GLG:KEY OFF 

FOR I=i TO 25 

READ Af 

LOCATE 1+INT(4B-LEN(AE)) /2,R 
PRINT Af: R=R+2 

IF I=12 OR I=25 THEN GOSUB 1910 
NEXT I 

REM sx INITIALISATIE se 
DEFINT A-Z 

Ki=120:Ri=175 


478 SCREEN 1,1:CLS 

488 COLOR 15,4,4 

498 ON STRIG GOSUB 940 

500 LOCATE 2,@:PRINT "SCORE"; SC, "BEURTEN" ; T 

51@ T=T+i: IF T:5 THEN 1002 

520 SPRITE ON:0N SPRITE GOSUB 780 

538 V=ERND(-TIME) #4+2 

540 Z=INT (RND(-TIME) #10) 

550 ON INTERVAL =3 GOSUE 750 

560 REM #*%* HAAL EEN CIJFER VAN 1-9 #% 

578 R=INT (RND (-TIME) #9) 

580 REM xx MAAK DE SPRITE 

594 FOR I=0O TO 7:S=VPEEK (1+8%(48+R)) : VPOKE BASE (9) +I,S: 
NEXT I 

440 FOR G=1i TO 9 

610 FOR I=0 TO 7:S=VPEEK (I+8%(48+G6)) : VFOKE BASE (9) +G#0+ 
I,Ss:NEXT I 

620 NEXT G 

6508 K2=INT (RND(-T IME) #240) : R2=0'R2=INT (RND(-T IME) #176) 
448 INTERVAL ON 

&58 D=STICK (0) 

6468 IF D=t THEN Z=Z+1 

678 IF D=5 THEN Ki=k1i+V/2 

6838 IF D=5 THEN Z=Z-1 

698 IF D=7 THEN Ki=Ki-V/2 

708 IF ZZ1 THEN Z=i ELSE IF Z>9 THEN Z=9 

710 FUT SPRITE 1, CARL) s14 2 

724 GOTO 450 

758 REM xx VERPLAATSING xxx 

740 R2=R2+V 

75@ PUT SPRITE @, (K2,R2),15,0 

748 IF R2>191 THEN 500 

778 RETURN 

780 REM xxx GEVANGEN # 

790 INTERVAL OFF 

803 BEEP: BEEP 

818 FUT SPRITE @, (8,192) 

820 FUT SPRITE 1,(108,192) 

850 LOCATE @,0 

840 SC=SC+R+Z 

850 REM sx CONTROLE VAN DE SCORE xx 

840 SPRITE OFF 

378 LOCATE 2,@:PRINT "SCORE": SC, "BEURTEN"; T 

888 IF SC=21 THEN LOCATE &,11:PRINT"HOERA! JE HERT 21!" 
:GOTO 910 

898 IF SC<21 THEN 970 ELSE 900 

908 LOCATE 18,11:PRINT"VERBRAND'! " 

918 LOCATE 2,22:PRINT"VERDER ? DRUK SPATIEBALK '" 
928 STRIG (A) ON 

930 GOTO 950 

PAD REM Hex VERDER sx 

950 T=0:SC=O: LOCATE 2,@:PRINT"SCORE"; SC, "BEURTEN"; T 
68 LOCATE 2,11:PRINT" „ 
970 LOCATE 2,22:PRINT" An 
9830 STRIG(G) OFF 


990 RETURN 500 

1400 LOCATE 2,11:PRINT"JE HEBT HET NIET GEHAALD! ":GOTO 
918 

1818 REM se INKEY-ROUTINE 

1820 K$&=INKEYS 

1850 IF K$=" " THEN CLS:R=@:: RETURN ELSE 1920 


Voorbeeld 


BEURTEN 4 
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4.19 Cavia Race 


Cavia's of Guinese biggetjes, ook wel eens ten onrechte ‘marmotjes’ genoemd, zijn 
grappige diertjes, die de eigenaardigheid hebben zo snel mogelijk een donker holle- 
tje op te zoeken. Zo vergaat het ook Moustique, Moustache en André van Duyn, de 
hoofdfiguren uit dit gokspelletje. Op hun weg naar de holletjes echter, kunnen onze 
lieverdjes verleid worden door op hun weg gestrooide groenten en zoetigheidjes, 
zoals een wortel, een krop sla of een koekje. Daar blijven ze dan even aan knabbe- 
len, terwijl de andere beestjes onverstoord doorgaan. 


Hoe moet dit spelletje nu worden gespeeld? 

Bij het begin van het spel wordt gevraagd naar het aantal spelers. Dit mag maximaal 
twintig zijn. Je kunt dus met de hele klas gaan spelen! Daarna wordt je gevraagd om 
voor elke speler zijn naam (maximum 16 letters), zijn gok en zijn inzet op te geven. 
De gok of het trio is een opeenvolging van de drie cijfers 1, 2en 3. De inzet is een som 
die beperkt is tot wat momenteel op je bankrekening staat. Je vertrekt met een provi- 
sie van 1000 (gulden of francs of wat je maar wilt). Probeer maar eens iets anders op 
te geven, zoals een te lange naam of een onmogelijke gok of een te hoge inzet. Er is 
namelijk een uitgebreide controle op de invoer. 

Zodra alle gegevens aanvaard zijn, begint het spel. Op je scherm verschijnt het spel- 
veld en daarna de cavia's aan de startlijn en de groenten op een willekeurige plaats. 
Piepend gaan de beestjes van start. Wie het snelst vooruitgaat en niet te veel knab- 
belt onderweg, komt het eerst in een holletje te zitten. Onderaan verschijnt dan de 
uitslag van de tiercé. Als alle drie onze vrienden binnen zijn, wordt voor elke deelne- 
mer de score (of stand van zijn rekening) opgemaakt. Hierin spelen een rol: zijn be- 
ginscore, of hij het eerste, de eerste twee of alle drie de cijfers van het tiercé in volg- 
orde juist heeft, en de waarde van de holletjes, waarin de beestjes zijn terechtgeko- 
men. 

Pas op voor de gokkoorts! 


Programma 

100 REM HHR HH HN HRH NH HH HH HH 

118 REM xx CAVIA RACE #x 

120 REM HHR HHK HKH HN HH HKH HH 

158 KEY OFF 

148 ON ERROR GOTO 23520 

15@ ON STRIG GOSUB 610 

168 STRIG(@) ON 

178 SCREEN 5,2: COLOR 15,4,4 
188 CLS 

192 OPEN"grp: "FOR OUTFUT AS #1 
208 FOR I=1i TO 2 

210 READ R‚K,SC# 

220 PRESET (R‚K) 

250 FRINT#1 ,SC# 

240 FLAY"o2ti20simi60011bacdl8fb":FLAY"14CRIGC" 
250 NEXT 

260 FOR D=1i TO 4020: NEXT 

278 COLOR 15,7,7 


280 SCREEN 2,2: WIDTH 22 

298 GOSUB 2180 

300 RESTORE 440 

z18 X=40 

328 KL (ID =158KL (2) =TEKL (DD) =1 

530 PRESET (@, 170) 

340 FRINT #1i,"druk op de spatiebalk om te start 
en" 

258 FOR I=i TO 12 

360 LINE(@,36)-(255,98) ,4,BF 

270 READ SC$ 

380 K=(32-LEN(SC#) ) #4 

590 PSET(K,88) ,4 

408 FRINT#1,SC& 

410 IF I<4 THEN PUT SPRITE I,(X,100) ‚KL (I) ,@: X=X+650 
420 FLAY"o2t120simi6001 1dacdl8fb":FLAY"1A4ACRI1AC" 

450 FOR D=1 TO 2008:NEXT 

440 NEXT 

450 DATA 40,40,cavia,56,190,race 

440 DATA met maustique 

470 DATA moustache 

438 DATA en andre van duyn 

490 DATA cavia race is een gokspelletje 

500 DATA voor een tot twintig spelers 

518 DATA eerst wardt je naar het aantal 

520 DATA spelers gevraagd 

550 DATA vervolgens moet elke speler 

548 DATA zijn naam, het trio en inzet 

708 DATA opgeven 

560 DATA surrawsrrt VEEL GELUK !!! semen 

570 DATA 110b17Of1P1PEFEEEF7A7A7F7F7F IFF OBG f API 
cfefcfefefefefctcfd ‘cavia 

588 DATA 0000004001 02070fAf If 1 Ef Te78400Z00004LAFAF fc f 
cf8fdedcA8AA000000D ‘wortel 

590 DATA GULADDAUGFAFAFAFAFOFEF Of 2000000000000 00000000 
2000040 0ADUOAAOADAA ' koekje 

600 DATA OZDFIFZFEFEFEFIFER7A7A7F7FT7FTAER DC OCACtfetet 
ffffffffefef 8808038 ‘sla 

618 CLEAR 2090 

620 DEFINT A-Z 

638 COLOR 1,14,14 

440 DIM SPE$(20):DIM TC#(20):DIM SC(24): DIM BO(20) : DIM 
H(20) 

650 DIM IN(20):DIM V(20):DIM F (20) 

668 FI'!'=5.15 

478 OFEN"grp: "FOR OUTFUT AS #1 

630 REM ss WEDROUTINE 2x 

6,8 CLS 

709 INFUT"hoeveel spelers";SPELERS 

718 IF SPELERS=@ THEN FRINT “minstens 1!":LO0CATE 17,6: 

PRINT SPC(LEN(STRE(SPELERS))):LOCATE @,9:G0T0 700 

728 IF SPELERS>20 THEN PRINT "maximum 20!":LOCATE 17,0 
:PRINT SPC(LEN(STRE(SPELERS))):LOCATE Q,0:G0T0 700 

738 FOR T=1 TO SPFELERS:SC(T)=1000: NEXT 

748 CLS 
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75@ FOR T=1 TO SPELERS 

768 IF FL=1i THEN 770 ELSE 780 

778 LOCATE @,2: PRINT SPES(T),"score";SC(T):GOTO 810 
780 LOCATE @,2:PRINT'"naam speler'";T 

798 LOCATE 14,2: INPUT SPES (T) 

8300 IF LEN(SPES(T))>16 THEN LOCATE 14,2: PRINT LEFT$ (SF 
E$(T) 16): PRINT SPC (LEN(SPES(T))) 

818 PRINT 

820 LOCATE B,5:PRINT"je gok?" 

854 LOCATE 14,5: INPUT TC#(T) 

840 REM #* CONTROLE OP DE GOK # 

8580 IF LEN(TCH(T))=5 THEN 868 ELSE PRINT: PRINT "maximum 
drie cijfers gebruiken!":G0OTO 830 

860 FOR N=i TO ZE: IF VAL (MIDE(TCS(T) ‚N,1)) <4 THEN NEXT 
N ELSE PRINT:FRINT "slechts 1,2 en 5 gebruiken! 8 
GOTO 8720 

87@ IF VAL (MID$(TC#(T) ,1,1)) +VAL (MID$(TC#(T) „2, 1) ) +VAL 
(MID$(TC$(T) ,5,1))=& THEN 880 ELSE PRINT:PRINT"geen tw 
eemaal hetzelfde cijfer!":GOTO 820 

888 LOCATE @,8:PRINT"inzet?" 

898 LOCATE 14,8: INPUT IN(T) 

N08 REM #* CONTROLE OP INZET %# 

918 IF IN(T)2SC(T) THEN PRINT: PRINT"MAXIMUM";SC(T) ; "!" 
:GOTO 880 

920 IF SC(T)L100 THEN FRINT:PRINT"JE KUNT NIET MEER MEE 
SFELEN, SPIJTIG!":FOR Dei TO 1000:NEXT D 

950 IF IN(T)ESC(T) THEN FRINT:PRINT"JE HEBT NOG SLECHTS 
"sSC(T):GOTO 2830 

SAB CLS 

950 NEXT T 

VEB REM Haex DECOR Ht 

970 SCREEN 2,2 

80 LINE(@,O) -(255,191),1,B 

90 LINE(L1,21)-(194,189) ,11,BF 

10009 LINE(48,20)-(195,190) ,1,B 

1818 FOR CK=79 TO 185 STEP 25 

1028 CIRCLE(CK,19),18,,8,FI' 

1958 PAINT (CK ,19) 

1040 NEXT CK 

1050 PRESET (71,1) 

1060 PRINT #1,"20 5@ 198 50 20" 

1070 PRESET (19,62) 

1080 PRINT #1,"CAVIA" 

1090 FRESET (210,62) 

1190 PRINT #1, "RACE" 

1110 REM #x* PLAATS DE CAVIAS 

1120 GOSUB 2180 

1158 KL (1) =152kL (2) =5ekL (5) el 

1140 FOR I=1 TO 3 

1150 FTI) =A 

1168 R(I)=174 

1178 KCI)=INT (RND(-TIME) #120+60) 

1188 PUT SPRITELCID , (KID) „RCI „KL (ID) „PTCID) 

1190 NEXT 

1200 R=20 
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FOR 1=4 TO & 
RCI) =INT (RND (-T IME) #35+B) 

K CI) =INT (RND (-T IME) #120+60) 

REM sx PLAATS DE GROENTEN + 

KL (4) =P KL (5) =131 KL (6) =2 

PUT SPRITE CI) , (KI) „RCI „KL (DD , 1-3 
E=B+45 

NEXT 

REM s%%* HOOFDLUS xx 

FOR I=1 TO 3 

KID =K (CI) +FIX(RND (-TIME) #14-7) 

ROD =R (ID) -FIXCRND (-T IME) #10-5) 

REM «* CONTROLE OP DE WANDEN « 

IF K(I) 48 THEN K(I)=6@ 

IF K(I)>188 THEN K(I)=188 

REM * CONTROLE OP DE ONDERZIJDE « 

IF R(I)>180 THEN R(I)=180 

REM #*#CONTROLE OP DE GROENTEN 
FOR J=4 TO & 

IF RUIDZR(J)+16 AND RCI) 2R(J)-16 THEN IF KUIDEK(J 
AND K(I)>K(J)-16 THEN GOSUR 1480 
NEXT J 

REM # CONTROLE OP DE AANKOMST « 

IF R(I)<25 THEN GOSUB 1570 

GOSUB 1950 

PUT SPRITE (ID , (KC) „RCI „KL (ID) „PT CI) 
NEXT 

GOTO 1200 

REM #x GROENTEN ETEN se 

PUT SPRITE(I) , (K(J) „RAI)D „KL CI) „PT CI) 
PRESET (K(J) +INT (RND (16) ) ‚RCJ +INT(RND (14) ) ) 
GOSUE 2050 

RETURN 

‘PUT SPRITE (I) , (KS) ‚RSI „KL (ID „PT CI) 
"RETURN 

'PUT SPRITE(I) , (K (6) ‚„R(6)) „KL (I) „PT 
‘RETURN 

REM se AANKOMST sx 

REM * PLAATS DE OGEN « 

QC) =I:C=C+1 
KAIDZINT(K(I) /25+1) #25: R(I) =15 

IE K(I)>175 THEN K(1)=175 

IF K(I)=75 OR K(I)=175 THEN H(C)=20 
IF K(I)=108 OR K(I)=15@ THEN H(C)=50 
IF K(I)=125 THEN H(C)=100 

IF K(I)>175 THEN K(I)=175 

RI) =239 

VE (B) #108+0 (1) #10+0 (2) 
LINE(K(I)+2,15) -(K(I)+3,16) ,15,BF 
LINE(K(I) +6, 15) -(K(I)+7,16) ,15,BF 
REM * PRINT TRIO « 

PRESET (10,140) :PRINT#1, “TRIO * 
KO=KO+8: PRESET (KO, 180) : PRINT #1,1 

PT (ID) =31 

PUT SPRITE I,(K(I) ,238) ,2,PT(I) 
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1750 
1760 


FLAY"O&L44AMZ205 1 BAAAAAAACTC 
IF C=Z THEN FLAY "OSL 52M40057AAAACCAAAAFFAAAADD": 


FOR D=1i TO 4000:NEXTD:GOTO 1788 


RETURN 

REM wax SCORE BEREKENING #4 

CLS:SCREEN B: WIDTH 57 

PRINT"TIERGE="; V 

PRINT: PRINT 

FOR T=i TO SPELERS 

REM %* VERGELIJK TRIO MET GOK «# 

IF @(@) =VAL (LEFT (TC&(T) „109 THEN F(T)=1: ROT) =H 1 


) ELSE FLT =e1 


18350 


IF O(@) #10+0 (1) =VAL(LEFTE(TCH(T) 2) THEN F(T)=ZeR 


OCT)=H(ID +H(2) 


1560 


IF O(B)#100+0 (1) *10+0 (2) =VAL (LEFT (TCT) , 5) ) THEN 


F(T)=10: BOT) =H (1D +H(2) +H CE) 


1870 
1880 
(CT) 

1890 
190% 
1910 
1920 
1950 
1940 
GOTO 
1950 
1960 


SC(T)=SC(T)I HINT) FT) +BO(T) 
PRINT "GOK ";SPES(T); "='"',TC$(T) 3 SPC (3) 3 "SCORE" 5 SC 


PRINT 

IF T=6& OR T=12 OR T=18 THEN GOSUB 2150 

NEXT 

REM xxx VERDER SPELEN? sx 

LOCATE 15,22:PRINT"VERDER SPELEN? J/N" 
KE=INKEY$: IF K&="J" OR K$="j" THEN FL=1i:skK0=0: C=0: 
740 ELSE IF K&$="N" OR K$="n'"THEN END ELSE 1940 
REM sax TSJIRP ax 

FOR K=4@ TO 40 STEP-1 

SOUND @,K 

SOUND 1,0 

SOUND 8,14 

NEXT 

SOUND 2,0 

SOUND 1,2 

SOUND 8,2 

RETURN 

REM 4% NJAM xe 

FOR K=@ TO 127 STEF 68 

SOUND @ 
SOUND 1 
SOUND 8 
NEXT 
SOUND @ 
SOUND 1 
SOUND 8 
RETURN 

REM ax VERDER SCORE BEKIJKEN #%% 

LOCATE 5,22: PRINT"VERDER? DRUK OF DE SPFATIETOETS" 
K&=INKEVS$: IF K$=" " THEN CLS:RETURN ELSE 2170 
RESTORE 570 

AT=@ 

FOR I=1 TO 4 

READ At 

B=1 

FOR AD=BASE(14)+AT TO BASE (14) +51+AT 


2240 SH=MID$(AE,B,2) 
2250 VPOKE AD,VAL (“&h"+5$) 

2260 B=B+2 

2270 NEXT AD 

2280 AT=AT+22 

2290 NEXT I 

2308 FOR I=1 TO Z:PT(I)=O:NEXT 1 
2318 RETURN 

2520 SCREEN @:COLOR 15,4,4 

2330 END 
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4.20 Sander Salamander 


Salamanders zijn amfibieën, waarvan sommigen uiterlijk op hagedissen gelijken 
(die echter tot de reptielen behoren). De lengte varieert van 7 cm tot 1,50 m. De 
meeste zijn fel van kleur. Ze bewegen zich langzaam voort met kronkelbewegingen. 
Ze komen voor op het noordelijk halfrond, meestal in de gematigde streken. Ze leven 
veelal langs de waterkant. 

Alhoewel veel van deze definitie uit de encyclopedie opgaat voor onze Sander, heeft 
hij ook wel wat merkwaardige kanten, die hem uniek maken in zijn soort. Zo is zijn 
lengte nogal uitzonderlijk en is zijn voortbeweging nauwelijks langzaam te noemen. 
Wel wil hij graag aan de overkant van de rivier wonen, en hiervoor vraagt Sander je 
hulp. 

Leidt hem over de rijbaan met de vier cursortoetsen, maar kijk uit voor de fietsen, 
motoren, auto's en andere rare vehikels. Nu is Sander op de dijk en wil graag over de 
snelstromende rivier worden geloodst. Pas op, want hij kan zich stoten aan de knoe- 
stige boomstronken die door de rivier worden meegesleurd. Pas ook op voor de ve- 
nijnige kaaimannen die Sander willen verslinden. 

Als Sander aan de overkant is, gaat hij parmantig in zijn holletje zitten. Als je zes 
salamanders overgebracht hebt, krijg je een bonus van vierhonderd punten en gaan 
plots de zaken veel sneller lopen. 

Als je meer dan tweeduizend punten haalt, ben je een crack! 

In dit spel worden een voor MSX-BASIC vrij groot aantal sprites terzelfder tijd in be- 
weging gebracht. Dit is mogelijk omdat ze allemaal, met uitzondering van Sander, in 
dezelfde lus en met dezelfde snelheid bewogen worden, zij het niet in dezelfde rich- 
ting. Vanwege de snelheid wordt in dit programma slechts met integers gerekend. 


Programma 


10D REM HMMM NHM HHM IE NIN HIE IH HE 
118 REM #%*#* SANDER SALAMANDER se 
120 REM HHHHN AHHH NHN HIN NN IH HEI HE 
1358 DEFINT A-Z 

148 DIM A$(64) 

150 OPEN "GRP: "FOR OUTPUT AS #1 


200 REM «sw DECOR # 

218 LINE(@,8)-(255,192),1,B 
220 LINE(@,18)-(255,10) ‚1 
250 LINE(@,174)-(255,174) ‚1 
248 LINE(@,70) -(255,89) ,9,BF 
250 FOR T=25 TO 225 STEP 4@:CIRCLE(T,10),18,1,,3. 15 
268 FAINT(T,9) ‚1 

270 NEXT T 

280 ON STRIG GOSURB 450 

290 STRIG(@) ON 

300 REM ##*# TEKST #4 

510 PRESET (B, 180) 


320 PRINT #1,"druk spatietoets om te starten" 

330 PRESET (SO, 76) 

340 PRINT #1,"SANDER SALAMANDER" 

358 PRESET (1,24) 

368 PRINT#1," BEWEEG SANDER SALAMANDER MET" 

378 FRINT#1," DE CURSORTOETSEN. PAS OP VOOR" 

388 PRINT#1," HET VERKEER, DE KROKODILLEN EN" 

398 PRINT#1," DE GEVAARLIJKE BOOMSTRONKEN. * 

408 PRESET (1,98) 

418 PRINT#1," IN DE RIVIER WORDT SANDER u 
420 FRINT#&1," MEEGESLEURD DOOR DE STROMING. e 
458 PRINT#1," 
440 PRINT#1," STERKTE ! " 

450 ON INTERVAL=5 GOSUB 840 

468 ON SPRITE GOSUB 1250 

47@ FOR T=@ TO 11 

A88 REM #** SPRITE DEFINITIE ##% 

498 I=i:FOR AD=BASE(14)+T#52 TO BASE (14)+E1+T#22 
500 READ A#£(I) 

518 VFOKE AD,‚VAL ("&H"+A4(I)) 

520 I=I+i:NEXT AD 

550 NEXT T 

540 Vel 

550 k=255:FT=10: 220 

563 FOR T=23 TO 223 STEP 4@:LINE(T,S5)-(T+1,6) ,1,BF:LINE 
(T+4,5) -(T+5,6) ,1,BF2NEXT 

570 FO=DrPie=isPZe: PE=Z 

530 REM %%#%* WIS DE TEKST sx 

50 LINE(@,11)- (255,69) ,4,EBF 

600 LINE(@,90)-(255,175) ,1,BF 

618 LINE(@,175)-(255,191) ,13,BF 

620 LINE(&4,188)-(20,180) ,15,BF:PRINT #1,TE 

630 LINE(224,188) -(200,180) ,12,BF: PRINT #1,FT 

640 REM s%* HOOFDLUS #3 

658 INTERVAL ON 

668 VF=4 

670 FOR D=1 TO 1000: NEXT 

680 KF=120:RF=175 

690 FUT SPRITE @, (KF ,RF) , 3, P1 

708 SPRITE ON 

718 S=STICK (0) 

720 IF S THEN PLAY"O2L32A": SWAP P@O,F1:SWAP F2,P3 
7538 IF S=1i THEN RF=RF-VF: IF Pi=2 THENF1=G ELSE IF F1=Z 


740 IF S=3 THEN KF=KF+VF 

750 IF S=5 THEN RF=RF+VF:PQ=P2:: IF RF>175 THEN RF=175 
768 IF S=7 THEN KF=KF-VF: IF KF<@ THEN KF=@ 

778 IF RF<&8 THEN KF=KF+468/RF 

780 IF KF>258 THEN FT=FT-1:GOSUB 99@:GOTO 480 

798 PUT SPRITE @, (KF,RF) „2, F1 

808 IF RF<11 THEN IF POINT(KF+8,RF-2)=1 THEN GOSUB 990: 
GOTO 1060 ELSE GOSUR 990:GOTO 480 

818 SPRITE ON 

820 INTERVAL ON 

E38 GOTO 710 


109 


340 REM xx VERFLAATS DE SPRITES #4 

8358 K=k-V 

840 FUT SPRITE 1,(K-5@,108) ‚15,4 

870 FUT SPRITE 2, (K-184,124),5,5 

880 FUT SPRITE Z,(K-164,140) „5,6 

890 PUT SPRITE 4, (K-84,124) „5,7 

908 FUT SPRITE 5, (K-214,90) ,9,8 

913 PUT SPRITE 6, (-K-255,156) „14,9 

928 PUT SPRITE 7, (-K,4),2,18 

954 FUT SPRITE 8, (-K+208,12) ,2,14 

940 FUT SPRITE 9, (-K+150,18) „14,11 

950 FUT SPRITE1O, (-K+100, 52) ‚14,11 

940 FUT SPRITE11, (=K+50,44) „14,11 

970 RETURN 

930 REM xx TELLER #4 

998 INTERVAL OFF:SPRITE OFF 

1009 FT=FT-1 

1019 BEEP: BEEF 

1020 LINE(224,188)-(200,180) ,15,BF:PRINT #1,FT 
1458 IF FT=3 THEN 1250 

1048 INTERVAL ON 

1050 RETURN 

10458 REM sx AANGEKOMEN se 

197@ INTERVAL OFF 

1480 PUT SPRITE @, (128,175) ,5,P1 

1490 OG= (INT (KF/40) ) #40+25 

1199 IF POINT(OG,5)=15 THEN GOSUB 990:G0T0 670 
1119 LINE(OG,5)-(0G+1,46) ,15,BF 

1120 LINE(OG+4,5) -(0G+5,6) ,15,;EBF 

1150 FOR I=1 TO Z:PLAY"L160SCCCAAEE" : NEXT 
1149 2=2+1: TE=TE+100:LINE(4G8,188)-(20,180) ,15,BF: PRINT 
#1,TE 

1150 IF Z=& THEN 1180 

1160 INTERVAL ON 

1174 GOTO 670 

1188 INTERVAL OFF 
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1198 LINE(255,99) -(B,91) ‚2, BF 

1238 PRINT #1," ALLE HOLLETJES VOL 6! HAR": TEZTEH4 
00: V=V+1 

1218 FOR I=1i TO Z:PLAY"OALSZAAAACCCABB": NEXT I 

1220 GOTO 1490 

1230 REM #3 DODE SANDER #xx 

1240 GOSUB 990 

125@ PUT SPRITE @, (KF‚RF),8,1 

1240 FOR K=109 TO 255 

1278 SOUND @B,K 

1288 SOUND 1,9 

1290 SOUND 8,10 

1500 NEXT K 

1518 SOUND @,0:50UND 8,0 

1520 RETURN 660 

1550 REM ss SALAMANDERS OP #4 

1540 K=0 

1350 FOR I=1 TO 8 

1368 FOR K=k TO K+48 

1570 SOUND @,K 

1588 SOUND 1,@ 

1598 SOUND 8,14 

1400 NEXT 

1418 K=K-20: NEXT 

142@ SOUND @,@ 

1458 SOUND 8,0 

1440 LINE(255,99) -(8,91),11,BF 

1450 FOR D=1 TO 4000: NEXT 

1460 PRINT #1,"##***NOG EEN SPELLETJE ? J/N! 

1470 K&=INKEY$: IF K$="J"OR K$="j"THEN 1480 ELSE IF K$=" 
N" OR K$='"n" THEN END ELSE 1470 

1480 TE=@ 

1498 LINE(255,99)-(8,91) ,1,BF 

1502 FT=@ 

1518 GOTO 550 

1520 DATA 05,07,05,07,01,01,05,07,0d,01,43,07,0f,19,00, 
00,cd,ed,ad,e2,80,bA,ed,cd,80,8,fA,ed,CcA,80,CA, 40 

1550 DATA @3,07,05,07,01,0d,07,05,01,19,0f,07,05,01,05, 
046,Ccd,eZ,ad,ed,80,80,Cc4,ed,bA,80,cd,ed,fA,98,00, 20 

1540 DATA 00,204,19,0f,07,02,01,0d,07,95,01,01,07,05,07, 
05,60,c4,80,cA,ed,f0,9B,80,CA,eD,bA,8A,ed,ad,el,cA 

1550 DATA Q6,02,01,05,07,Af,19,01,02,07,0d,01,07,05,07, 
05,00,400,98,fD,ed,cd,80,bA,eA,c2,830,80,ed,ad,ed,cA 

1540 DATA 02,00,00,00,01,92,05,07,2f,0f,25,4f,b5,b5,4a, 
50,58,28,10,58,f8,38,38,f8,f8,fe,el,dc,bb,aa, 36,1c 

1573 DATA @0,00,00,10,11,01,7f,3f,7f,7f,07,77,df ,aB, dB, 
70,3f,21,2d,2d,a5, Sf, ff, ff ‚ff, 7f;ff,e4,da,5a,4b,3c 

1580 DATA Q1,42,09,07,08,08,08,1d,2a,4d,8c,98,80,41,22, 
ic,c@,c3,40,e0,40,70,Cc3,20,10,08,88,88,8C,12,12,0c 

1598 DATA @c,@c,28,Ac,1d,7f,45,44,fc,12,11,11,12,8C, 04, 
03,ch,ch,00,cb,ce,ff,c1,21,57,48,88,88,48, 50, 20,C0 

1620 DATA @@,00,00,00,00,00,00,00,00,A0,01,02,5f,7f, ff, 
60,00,02,00,00,00,00,00,00,02,F8,04,02,ff,ff ‚fe, 18 

1618 DATA 03,00,06,06,00,0C,0E,08,08,06,F1,0,61,91,90, 
40,00,400,00,00,00,40,10,FA,2E,19,28,0E,11,95,11,0E 


1620 DATA 00,20,00,00,00,00,02,7f,ff,00,00,00,02,00,00, 
00,00,00,00,00,00,00,70,d0,ff,00,00,00,00,00,00, 00 
1630 DATA 02,00,00,00,00,00,7,7f,ff,ff,7f,ff,dĲ,00,00, 
00,00,00,00,00,00,00,7e,dt,fb,ff,7f,Od,37,00,42, 00 
1640 DATA 22,00,02,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,02,00,020,00,00,00,00,00,00,00,00,00,00,00, 00 
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Ee Ie eat 


Di 
hai Pikes Ak 
odd dan ala ne 


De 


Een nieuwe computer vraagt om nieuwe software. Met de 
komst van de MSX-computers is dat pas goed duidelijk 
geworden. Vele grafische mogelijkheden nodigen uit tot het 
maken van bijzondere ‘sprites’. De auteur is er in geslaagd om 
met behulp van bewegende sprites een aantal 
behendigheidsprogramma’s te maken. Ook het speelse element 
is in de programma’s ruim vertegenwoordigd, hierdoor kunt u 
heel wat kneepjes van het programmeren onder de knie krijgen. 
Door de variatie en de opbouw van de programma’s is er een 
boek ontstaan dat de nieuwe generatie MSX-thuiscomputeraars 
zeker niet wil missen. 
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